pgloader →
3.6.10-1 →
armhf → 2023-11-05 05:12:27
sbuild (Debian sbuild) 0.72.0 (25 Oct 2016) on mb-lxc-01
+==============================================================================+
| pgloader 3.6.10-1 (armhf) Sun, 05 Nov 2023 04:50:15 +0000 |
+==============================================================================+
Package: pgloader
Version: 3.6.10-1
Source Version: 3.6.10-1
Distribution: trixie-staging
Machine Architecture: armhf
Host Architecture: armhf
Build Architecture: armhf
I: NOTICE: Log filtering will replace 'var/lib/schroot/mount/trixie-staging-armhf-sbuild-d888ede5-886e-4ada-a4f3-996b10c84c5c' with '<<CHROOT>>'
+------------------------------------------------------------------------------+
| Update chroot |
+------------------------------------------------------------------------------+
Get:1 http://172.17.4.1/private trixie-staging InRelease [11.3 kB]
Get:2 http://172.17.4.1/private trixie-staging/main Sources [14.2 MB]
Get:3 http://172.17.4.1/private trixie-staging/main armhf Packages [14.9 MB]
Fetched 29.1 MB in 10s (3051 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/trixie-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 trixie-staging/main pgloader 3.6.10-1 (dsc) [2802 B]
Get:2 http://172.17.4.1/private trixie-staging/main pgloader 3.6.10-1 (tar) [3723 kB]
Get:3 http://172.17.4.1/private trixie-staging/main pgloader 3.6.10-1 (diff) [9336 B]
Fetched 3735 kB in 0s (8820 kB/s)
Download complete and in download only mode
I: NOTICE: Log filtering will replace 'build/pgloader-f7UvRP/pgloader-3.6.10' with '<<PKGBUILDDIR>>'
I: NOTICE: Log filtering will replace 'build/pgloader-f7UvRP' 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-ClTang/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-ClTang/gpg/pubring.kbx' created
gpg: /<<BUILDDIR>>/resolver-ClTang/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-ClTang/apt_archive ./ InRelease
Get:2 copy:/<<BUILDDIR>>/resolver-ClTang/apt_archive ./ Release [957 B]
Get:3 copy:/<<BUILDDIR>>/resolver-ClTang/apt_archive ./ Release.gpg [370 B]
Get:4 copy:/<<BUILDDIR>>/resolver-ClTang/apt_archive ./ Sources [349 B]
Get:5 copy:/<<BUILDDIR>>/resolver-ClTang/apt_archive ./ Packages [432 B]
Fetched 2108 B in 0s (10.4 kB/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 sgml-base util-linux-extra
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 0 not upgraded.
Need to get 852 B of archives.
After this operation, 0 B of additional disk space will be used.
Get:1 copy:/<<BUILDDIR>>/resolver-ClTang/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 (76.7 kB/s)
Selecting previously unselected package sbuild-build-depends-core-dummy.
(Reading database ... 12856 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, libsqlite3-dev, postgresql-16-ip4r | postgresql-ip4r, python3-sphinx, python3-sphinx-rtd-theme, 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, libsqlite3-dev, postgresql-16-ip4r, python3-sphinx, python3-sphinx-rtd-theme, sbcl (>= 1.1.13), tzdata
dpkg-deb: building package 'sbuild-build-depends-pgloader-dummy' in '/<<BUILDDIR>>/resolver-ClTang/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-ClTang/apt_archive ./ InRelease
Get:2 copy:/<<BUILDDIR>>/resolver-ClTang/apt_archive ./ Release [963 B]
Get:3 copy:/<<BUILDDIR>>/resolver-ClTang/apt_archive ./ Release.gpg [370 B]
Get:4 copy:/<<BUILDDIR>>/resolver-ClTang/apt_archive ./ Sources [898 B]
Get:5 copy:/<<BUILDDIR>>/resolver-ClTang/apt_archive ./ Packages [960 B]
Fetched 3191 B in 0s (16.2 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 util-linux-extra
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 docutils-common dwz file fonts-font-awesome
fonts-lato freetds-common freetds-dev gawk gettext gettext-base groff-base
help2man intltool-debian libarchive-zip-perl libbsd0 libc-l10n libct4
libdebhelper-perl libedit2 libelf1 libexpat1 libffi-dev
libfile-stripnondeterminism-perl libicu72 libjs-jquery libjs-sphinxdoc
libjs-underscore libjson-perl libllvm15 liblocale-gettext-perl libmagic-mgc
libmagic1 libpipeline1 libpkgconf3 libpq5 libpython3-stdlib
libpython3.11-minimal libpython3.11-stdlib libsigsegv2 libsqlite3-dev
libsub-override-perl libsybdb5 libtool libuchardet0 libxml2 libxslt1.1
libz3-4 locales m4 man-db media-types openssl pkg-config pkgconf pkgconf-bin
po-debconf postgresql-16 postgresql-16-ip4r postgresql-client-16
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-jinja2 python3-lib2to3 python3-markupsafe
python3-minimal python3-packaging python3-pkg-resources python3-pygments
python3-requests python3-roman python3-six python3-snowballstemmer
python3-sphinx python3-sphinx-rtd-theme python3-sphinxcontrib.jquery
python3-tz python3-urllib3 python3.11 python3.11-minimal sbcl sphinx-common
sphinx-rtd-theme-common ssl-cert 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 sqlite3-doc libtool-doc
gfortran | fortran95-compiler gcj-jdk m4-doc apparmor less www-browser
libmail-box-perl postgresql-doc-16 python3-doc python3-tk python3-venv
python-charset-normalizer-doc 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 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.11-venv python3.11-doc binfmt-support sbcl-doc
sbcl-source slime
Recommended packages:
cl-fiveam libjs-mathjax cl-ptester freetds-doc curl | wget | lynx
libarchive-cpio-perl javascript-common libjson-xs-perl libltdl-dev
libmail-sendmail-perl sysstat logrotate libpaper-utils python3-pil
binfmt-support | systemd
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 docutils-common dwz file fonts-font-awesome
fonts-lato freetds-common freetds-dev gawk gettext gettext-base groff-base
help2man intltool-debian libarchive-zip-perl libbsd0 libc-l10n libct4
libdebhelper-perl libedit2 libelf1 libexpat1 libffi-dev
libfile-stripnondeterminism-perl libicu72 libjs-jquery libjs-sphinxdoc
libjs-underscore libjson-perl libllvm15 liblocale-gettext-perl libmagic-mgc
libmagic1 libpipeline1 libpkgconf3 libpq5 libpython3-stdlib
libpython3.11-minimal libpython3.11-stdlib libsigsegv2 libsqlite3-dev
libsub-override-perl libsybdb5 libtool libuchardet0 libxml2 libxslt1.1
libz3-4 locales m4 man-db media-types openssl pkg-config pkgconf pkgconf-bin
po-debconf postgresql-16 postgresql-16-ip4r postgresql-client-16
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-jinja2 python3-lib2to3 python3-markupsafe
python3-minimal python3-packaging python3-pkg-resources python3-pygments
python3-requests python3-roman python3-six python3-snowballstemmer
python3-sphinx python3-sphinx-rtd-theme python3-sphinxcontrib.jquery
python3-tz python3-urllib3 python3.11 python3.11-minimal sbcl
sbuild-build-depends-pgloader-dummy sphinx-common sphinx-rtd-theme-common
ssl-cert ucf xml-core zlib1g-dev
0 upgraded, 176 newly installed, 0 to remove and 0 not upgraded.
Need to get 117 MB of archives.
After this operation, 504 MB of additional disk space will be used.
Get:1 copy:/<<BUILDDIR>>/resolver-ClTang/apt_archive ./ sbuild-build-depends-pgloader-dummy 0.invalid.0 [1248 B]
Get:2 http://172.17.4.1/private trixie-staging/main armhf liblocale-gettext-perl armhf 1.07-6 [14.8 kB]
Get:3 http://172.17.4.1/private trixie-staging/main armhf fonts-lato all 2.015-1 [2780 kB]
Get:4 http://172.17.4.1/private trixie-staging/main armhf libsigsegv2 armhf 2.14-1 [36.6 kB]
Get:5 http://172.17.4.1/private trixie-staging/main armhf gawk armhf 1:5.2.1-2 [595 kB]
Get:6 http://172.17.4.1/private trixie-staging/main armhf libjson-perl all 4.10000-1 [87.5 kB]
Get:7 http://172.17.4.1/private trixie-staging/main armhf postgresql-client-common all 255 [36.2 kB]
Get:8 http://172.17.4.1/private trixie-staging/main armhf openssl armhf 3.0.11-1 [1367 kB]
Get:9 http://172.17.4.1/private trixie-staging/main armhf ssl-cert all 1.1.2 [21.1 kB]
Get:10 http://172.17.4.1/private trixie-staging/main armhf ucf all 3.0043+nmu1 [55.2 kB]
Get:11 http://172.17.4.1/private trixie-staging/main armhf postgresql-common all 255 [180 kB]
Get:12 http://172.17.4.1/private trixie-staging/main armhf libpython3.11-minimal armhf 3.11.6-3 [800 kB]
Get:13 http://172.17.4.1/private trixie-staging/main armhf libexpat1 armhf 2.5.0-2 [76.8 kB]
Get:14 http://172.17.4.1/private trixie-staging/main armhf python3.11-minimal armhf 3.11.6-3 [1674 kB]
Get:15 http://172.17.4.1/private trixie-staging/main armhf python3-minimal armhf 3.11.4-5 [26.2 kB]
Get:16 http://172.17.4.1/private trixie-staging/main armhf media-types all 10.1.0 [26.9 kB]
Get:17 http://172.17.4.1/private trixie-staging/main armhf libpython3.11-stdlib armhf 3.11.6-3 [1679 kB]
Get:18 http://172.17.4.1/private trixie-staging/main armhf python3.11 armhf 3.11.6-3 [586 kB]
Get:19 http://172.17.4.1/private trixie-staging/main armhf libpython3-stdlib armhf 3.11.4-5 [9200 B]
Get:20 http://172.17.4.1/private trixie-staging/main armhf python3 armhf 3.11.4-5 [26.2 kB]
Get:21 http://172.17.4.1/private trixie-staging/main armhf libuchardet0 armhf 0.0.7-1 [65.0 kB]
Get:22 http://172.17.4.1/private trixie-staging/main armhf groff-base armhf 1.23.0-3 [1033 kB]
Get:23 http://172.17.4.1/private trixie-staging/main armhf bsdextrautils armhf 2.39.2-5 [80.8 kB]
Get:24 http://172.17.4.1/private trixie-staging/main armhf libpipeline1 armhf 1.5.7-1 [33.4 kB]
Get:25 http://172.17.4.1/private trixie-staging/main armhf man-db armhf 2.11.2-3 [1342 kB]
Get:26 http://172.17.4.1/private trixie-staging/main armhf ca-certificates all 20230311 [153 kB]
Get:27 http://172.17.4.1/private trixie-staging/main armhf libmagic-mgc armhf 1:5.45-2 [314 kB]
Get:28 http://172.17.4.1/private trixie-staging/main armhf libmagic1 armhf 1:5.45-2 [96.1 kB]
Get:29 http://172.17.4.1/private trixie-staging/main armhf file armhf 1:5.45-2 [41.6 kB]
Get:30 http://172.17.4.1/private trixie-staging/main armhf gettext-base armhf 0.21-13 [156 kB]
Get:31 http://172.17.4.1/private trixie-staging/main armhf libc-l10n all 2.37-12+rpi2 [708 kB]
Get:32 http://172.17.4.1/private trixie-staging/main armhf locales all 2.37-12+rpi2 [3907 kB]
Get:33 http://172.17.4.1/private trixie-staging/main armhf m4 armhf 1.4.19-4 [256 kB]
Get:34 http://172.17.4.1/private trixie-staging/main armhf autoconf all 2.71-3 [332 kB]
Get:35 http://172.17.4.1/private trixie-staging/main armhf autotools-dev all 20220109.1 [51.6 kB]
Get:36 http://172.17.4.1/private trixie-staging/main armhf automake all 1:1.16.5-1.3 [823 kB]
Get:37 http://172.17.4.1/private trixie-staging/main armhf autopoint all 0.21-13 [496 kB]
Get:38 http://172.17.4.1/private trixie-staging/main armhf sbcl armhf 2:2.3.7-2 [8287 kB]
Get:39 http://172.17.4.1/private trixie-staging/main armhf buildapp armhf 1.5.6-3 [7047 kB]
Get:40 http://172.17.4.1/private trixie-staging/main armhf cl-alexandria all 20211025.gita67c3a6-1 [212 kB]
Get:41 http://172.17.4.1/private trixie-staging/main armhf cl-esrap all 20211008.gitc99c33a-1 [54.0 kB]
Get:42 http://172.17.4.1/private trixie-staging/main armhf cl-ppcre all 20220126.gitb4056c5-1 [113 kB]
Get:43 http://172.17.4.1/private trixie-staging/main armhf cl-abnf all 20200229.gitba1fbb1-1 [11.4 kB]
Get:44 http://172.17.4.1/private trixie-staging/main armhf cl-anaphora all 1:0.9.8-1 [8168 B]
Get:45 http://172.17.4.1/private trixie-staging/main armhf cl-asdf all 2:3.3.6-1 [1290 kB]
Get:46 http://172.17.4.1/private trixie-staging/main armhf cl-asdf-finalizers all 20170403-1.1 [9620 B]
Get:47 http://172.17.4.1/private trixie-staging/main armhf cl-asdf-system-connections all 20170124-1.1 [5080 B]
Get:48 http://172.17.4.1/private trixie-staging/main armhf cl-trivial-features all 20210228.gitf6e8dd7-2 [10.9 kB]
Get:49 http://172.17.4.1/private trixie-staging/main armhf cl-trivial-gray-streams all 20210117.git2b3823e-1 [10.5 kB]
Get:50 http://172.17.4.1/private trixie-staging/main armhf cl-babel all 20200719.gitf892d05-2 [125 kB]
Get:51 http://172.17.4.1/private trixie-staging/main armhf cl-rt all 20090812.gita6a7503-1 [13.2 kB]
Get:52 http://172.17.4.1/private trixie-staging/main armhf cl-kmrcl all 1.111-2 [46.7 kB]
Get:53 http://172.17.4.1/private trixie-staging/main armhf cl-base64 all 3.4.0-1 [9936 B]
Get:54 http://172.17.4.1/private trixie-staging/main armhf cl-bordeaux-threads all 0.8.8-5 [23.2 kB]
Get:55 http://172.17.4.1/private trixie-staging/main armhf libpkgconf3 armhf 1.8.1-1 [31.3 kB]
Get:56 http://172.17.4.1/private trixie-staging/main armhf pkgconf-bin armhf 1.8.1-1 [27.8 kB]
Get:57 http://172.17.4.1/private trixie-staging/main armhf pkgconf armhf 1.8.1-1 [25.9 kB]
Get:58 http://172.17.4.1/private trixie-staging/main armhf pkg-config armhf 1.8.1-1 [13.7 kB]
Get:59 http://172.17.4.1/private trixie-staging/main armhf libffi-dev armhf 3.4.4-1 [60.4 kB]
Get:60 http://172.17.4.1/private trixie-staging/main armhf zlib1g-dev armhf 1:1.2.13.dfsg-3 [901 kB]
Get:61 http://172.17.4.1/private trixie-staging/main armhf cl-cffi all 1:0.24.1-3 [1682 kB]
Get:62 http://172.17.4.1/private trixie-staging/main armhf cl-chipz all 20220213.git82a17d3-1 [37.4 kB]
Get:63 http://172.17.4.1/private trixie-staging/main armhf cl-chunga all 20220222.git7836609-1 [19.6 kB]
Get:64 http://172.17.4.1/private trixie-staging/main armhf cl-closer-mop all 2:20220227.giteabdf6a-1 [25.8 kB]
Get:65 http://172.17.4.1/private trixie-staging/main armhf cl-closure-common all 20101107-1.1 [25.2 kB]
Get:66 http://172.17.4.1/private trixie-staging/main armhf cl-command-line-arguments all 20151218-1.1 [9544 B]
Get:67 http://172.17.4.1/private trixie-staging/main armhf cl-metatilities-base all 20170403-1.1 [51.9 kB]
Get:68 http://172.17.4.1/private trixie-staging/main armhf cl-containers all 20170403-1.1 [114 kB]
Get:69 http://172.17.4.1/private trixie-staging/main armhf cl-iterate all 20210519.gitb0f9a9c-1 [49.3 kB]
Get:70 http://172.17.4.1/private trixie-staging/main armhf cl-flexi-streams all 20210728.git41af5dc-1 [176 kB]
Get:71 http://172.17.4.1/private trixie-staging/main armhf cl-unicode all 20201101.git54bdf2c-1 [1316 kB]
Get:72 http://172.17.4.1/private trixie-staging/main armhf cl-named-readtables all 20201221.gitc5689a4-1 [28.0 kB]
Get:73 http://172.17.4.1/private trixie-staging/main armhf cl-interpol all 20220725.gitd4f49d4-1 [32.8 kB]
Get:74 http://172.17.4.1/private trixie-staging/main armhf cl-csv all 20200929.git68ecb5d-1 [27.7 kB]
Get:75 http://172.17.4.1/private trixie-staging/main armhf cl-cxml all 20110619-2.1 [82.5 kB]
Get:76 http://172.17.4.1/private trixie-staging/main armhf cl-db3 all 20200212-1 [8388 B]
Get:77 http://172.17.4.1/private trixie-staging/main armhf cl-puri all 1:1.5.7.2-1 [19.1 kB]
Get:78 http://172.17.4.1/private trixie-staging/main armhf cl-split-sequence all 1:2.0.1-1 [11.9 kB]
Get:79 http://172.17.4.1/private trixie-staging/main armhf cl-usocket all 0.8.3-2 [74.9 kB]
Get:80 http://172.17.4.1/private trixie-staging/main armhf cl-trivial-garbage all 20211229.gitb3af9c0-1 [9000 B]
Get:81 http://172.17.4.1/private trixie-staging/main armhf cl-plus-ssl all 20220328.git8b91648-4 [57.3 kB]
Get:82 http://172.17.4.1/private trixie-staging/main armhf cl-drakma all 2.0.8-1 [46.3 kB]
Get:83 http://172.17.4.1/private trixie-staging/main armhf cl-dynamic-classes all 20130128-2.1 [6916 B]
Get:84 http://172.17.4.1/private trixie-staging/main armhf cl-fad all 20220110.git3f4d32d-1 [24.4 kB]
Get:85 http://172.17.4.1/private trixie-staging/main armhf cl-garbage-pools all 20130720-1.1 [3144 B]
Get:86 http://172.17.4.1/private trixie-staging/main armhf cl-global-vars all 0~20141013.gitc749f32-2 [5156 B]
Get:87 http://172.17.4.1/private trixie-staging/main armhf cl-ieee-floats all 20170830-1.1 [6828 B]
Get:88 http://172.17.4.1/private trixie-staging/main armhf cl-ironclad all 0.57-3 [1170 kB]
Get:89 http://172.17.4.1/private trixie-staging/main armhf cl-ixf all 20180228-1.1 [9852 B]
Get:90 http://172.17.4.1/private trixie-staging/main armhf cl-local-time all 20180228-1.1 [26.7 kB]
Get:91 http://172.17.4.1/private trixie-staging/main armhf cl-log all 1.0.1-1.1 [20.8 kB]
Get:92 http://172.17.4.1/private trixie-staging/main armhf cl-lparallel all 20160825-1.1 [49.8 kB]
Get:93 http://172.17.4.1/private trixie-staging/main armhf cl-metabang-bind all 20200101.git9ab6e64-1 [17.6 kB]
Get:94 http://172.17.4.1/private trixie-staging/main armhf cl-markdown all 20101006-2.1 [37.4 kB]
Get:95 http://172.17.4.1/private trixie-staging/main armhf cl-md5 all 1:20210622.git906593f-1 [14.8 kB]
Get:96 http://172.17.4.1/private trixie-staging/main armhf freetds-common all 1.3.17+ds-2 [28.9 kB]
Get:97 http://172.17.4.1/private trixie-staging/main armhf libct4 armhf 1.3.17+ds-2 [142 kB]
Get:98 http://172.17.4.1/private trixie-staging/main armhf libsybdb5 armhf 1.3.17+ds-2 [165 kB]
Get:99 http://172.17.4.1/private trixie-staging/main armhf freetds-dev armhf 1.3.17+ds-2 [237 kB]
Get:100 http://172.17.4.1/private trixie-staging/main armhf cl-mssql all 20180228-1.1 [8652 B]
Get:101 http://172.17.4.1/private trixie-staging/main armhf cl-mustache all 0.12.1-9-g684f227-1.1 [9880 B]
Get:102 http://172.17.4.1/private trixie-staging/main armhf cl-parse-number all 1.7-1.1 [7368 B]
Get:103 http://172.17.4.1/private trixie-staging/main armhf cl-uax-15 all 0~20211021.git75c8a87-3 [387 kB]
Get:104 http://172.17.4.1/private trixie-staging/main armhf cl-postgres all 20211113.git9d4332f-3 [64.0 kB]
Get:105 http://172.17.4.1/private trixie-staging/main armhf cl-s-sql all 20211113.git9d4332f-3 [69.9 kB]
Get:106 http://172.17.4.1/private trixie-staging/main armhf cl-postmodern all 20211113.git9d4332f-3 [361 kB]
Get:107 http://172.17.4.1/private trixie-staging/main armhf cl-py-configparser all 20170830-1.1 [8612 B]
Get:108 http://172.17.4.1/private trixie-staging/main armhf cl-qmynd all 20180131-1.1 [37.3 kB]
Get:109 http://172.17.4.1/private trixie-staging/main armhf cl-quri all 20150804-1.1 [66.5 kB]
Get:110 http://172.17.4.1/private trixie-staging/main armhf cl-simple-date all 20211113.git9d4332f-3 [19.3 kB]
Get:111 http://172.17.4.1/private trixie-staging/main armhf cl-sqlite all 20130615-2.1 [14.7 kB]
Get:112 http://172.17.4.1/private trixie-staging/main armhf cl-trivial-backtrace all 20200511.git6eb65bd-1 [10.1 kB]
Get:113 http://172.17.4.1/private trixie-staging/main armhf cl-trivial-utf-8 all 20111001-1.1 [7760 B]
Get:114 http://172.17.4.1/private trixie-staging/main armhf cl-utilities all 1.2.4-3.2 [22.2 kB]
Get:115 http://172.17.4.1/private trixie-staging/main armhf cl-uuid all 20130813-1.1 [6876 B]
Get:116 http://172.17.4.1/private trixie-staging/main armhf cl-yason all 0.7.6-1.1 [10.0 kB]
Get:117 http://172.17.4.1/private trixie-staging/main armhf cl-zs3 all 1.3.1-1.1 [48.6 kB]
Get:118 http://172.17.4.1/private trixie-staging/main armhf libdebhelper-perl all 13.11.7 [82.1 kB]
Get:119 http://172.17.4.1/private trixie-staging/main armhf libtool all 2.4.7-7 [517 kB]
Get:120 http://172.17.4.1/private trixie-staging/main armhf dh-autoreconf all 20 [17.1 kB]
Get:121 http://172.17.4.1/private trixie-staging/main armhf libarchive-zip-perl all 1.68-1 [104 kB]
Get:122 http://172.17.4.1/private trixie-staging/main armhf libsub-override-perl all 0.09-4 [9304 B]
Get:123 http://172.17.4.1/private trixie-staging/main armhf libfile-stripnondeterminism-perl all 1.13.1-1 [19.4 kB]
Get:124 http://172.17.4.1/private trixie-staging/main armhf dh-strip-nondeterminism all 1.13.1-1 [8620 B]
Get:125 http://172.17.4.1/private trixie-staging/main armhf libelf1 armhf 0.188-2.1+rpi1 [171 kB]
Get:126 http://172.17.4.1/private trixie-staging/main armhf dwz armhf 0.15-1 [92.4 kB]
Get:127 http://172.17.4.1/private trixie-staging/main armhf libicu72 armhf 72.1-4 [9009 kB]
Get:128 http://172.17.4.1/private trixie-staging/main armhf libxml2 armhf 2.9.14+dfsg-1.3 [571 kB]
Get:129 http://172.17.4.1/private trixie-staging/main armhf gettext armhf 0.21-13 [1201 kB]
Get:130 http://172.17.4.1/private trixie-staging/main armhf intltool-debian all 0.35.0+20060710.6 [22.9 kB]
Get:131 http://172.17.4.1/private trixie-staging/main armhf po-debconf all 1.0.21+nmu1 [248 kB]
Get:132 http://172.17.4.1/private trixie-staging/main armhf debhelper all 13.11.7 [956 kB]
Get:133 http://172.17.4.1/private trixie-staging/main armhf xml-core all 0.18+nmu1 [23.8 kB]
Get:134 http://172.17.4.1/private trixie-staging/main armhf docutils-common all 0.19+dfsg-8 [127 kB]
Get:135 http://172.17.4.1/private trixie-staging/main armhf fonts-font-awesome all 5.0.10+really4.7.0~dfsg-4.1 [517 kB]
Get:136 http://172.17.4.1/private trixie-staging/main armhf help2man armhf 1.49.3 [198 kB]
Get:137 http://172.17.4.1/private trixie-staging/main armhf libbsd0 armhf 0.11.7-4 [111 kB]
Get:138 http://172.17.4.1/private trixie-staging/main armhf libedit2 armhf 3.1-20230828-1 [76.0 kB]
Get:139 http://172.17.4.1/private trixie-staging/main armhf libjs-jquery all 3.6.1+dfsg+~3.5.14-1 [326 kB]
Get:140 http://172.17.4.1/private trixie-staging/main armhf libjs-underscore all 1.13.4~dfsg+~1.11.4-3 [116 kB]
Get:141 http://172.17.4.1/private trixie-staging/main armhf libjs-sphinxdoc all 5.3.0-7 [131 kB]
Get:142 http://172.17.4.1/private trixie-staging/main armhf libz3-4 armhf 4.8.12-3.1 [5797 kB]
Get:143 http://172.17.4.1/private trixie-staging/main armhf libllvm15 armhf 1:15.0.6-4+rpi1+b1 [20.7 MB]
Get:144 http://172.17.4.1/private trixie-staging/main armhf libpq5 armhf 16.0-2 [193 kB]
Get:145 http://172.17.4.1/private trixie-staging/main armhf libsqlite3-dev armhf 3.43.2-1 [925 kB]
Get:146 http://172.17.4.1/private trixie-staging/main armhf libxslt1.1 armhf 1.1.35-1 [221 kB]
Get:147 http://172.17.4.1/private trixie-staging/main armhf postgresql-client-16 armhf 16.0-2 [1747 kB]
Get:148 http://172.17.4.1/private trixie-staging/main armhf postgresql-16 armhf 16.0-2 [16.7 MB]
Get:149 http://172.17.4.1/private trixie-staging/main armhf postgresql-16-ip4r armhf 2.4.2-2 [195 kB]
Get:150 http://172.17.4.1/private trixie-staging/main armhf python-babel-localedata all 2.10.3-2 [5611 kB]
Get:151 http://172.17.4.1/private trixie-staging/main armhf python3-alabaster all 0.7.12-1 [20.8 kB]
Get:152 http://172.17.4.1/private trixie-staging/main armhf python3-pkg-resources all 68.1.2-2 [241 kB]
Get:153 http://172.17.4.1/private trixie-staging/main armhf python3-tz all 2023.3.post1-1 [30.8 kB]
Get:154 http://172.17.4.1/private trixie-staging/main armhf python3-babel all 2.10.3-2 [99.9 kB]
Get:155 http://172.17.4.1/private trixie-staging/main armhf python3-certifi all 2023.7.22-1 [150 kB]
Get:156 http://172.17.4.1/private trixie-staging/main armhf python3-chardet all 5.2.0+dfsg-1 [107 kB]
Get:157 http://172.17.4.1/private trixie-staging/main armhf python3-charset-normalizer all 3.3.0-1 [51.0 kB]
Get:158 http://172.17.4.1/private trixie-staging/main armhf python3-lib2to3 all 3.11.5-1 [77.5 kB]
Get:159 http://172.17.4.1/private trixie-staging/main armhf python3-distutils all 3.11.5-1 [131 kB]
Get:160 http://172.17.4.1/private trixie-staging/main armhf python3-roman all 3.3-3 [9880 B]
Get:161 http://172.17.4.1/private trixie-staging/main armhf python3-docutils all 0.19+dfsg-8 [382 kB]
Get:162 http://172.17.4.1/private trixie-staging/main armhf python3-idna all 3.3-2 [39.1 kB]
Get:163 http://172.17.4.1/private trixie-staging/main armhf python3-imagesize all 1.4.1-1 [6688 B]
Get:164 http://172.17.4.1/private trixie-staging/main armhf python3-markupsafe armhf 2.1.3-1 [12.8 kB]
Get:165 http://172.17.4.1/private trixie-staging/main armhf python3-jinja2 all 3.1.2-1 [119 kB]
Get:166 http://172.17.4.1/private trixie-staging/main armhf python3-packaging all 23.1-1 [37.4 kB]
Get:167 http://172.17.4.1/private trixie-staging/main armhf python3-pygments all 2.15.1+dfsg-1 [817 kB]
Get:168 http://172.17.4.1/private trixie-staging/main armhf python3-six all 1.16.0-4 [17.5 kB]
Get:169 http://172.17.4.1/private trixie-staging/main armhf python3-urllib3 all 1.26.18-1 [116 kB]
Get:170 http://172.17.4.1/private trixie-staging/main armhf python3-requests all 2.31.0+dfsg-1 [68.6 kB]
Get:171 http://172.17.4.1/private trixie-staging/main armhf python3-snowballstemmer all 2.2.0-4 [58.0 kB]
Get:172 http://172.17.4.1/private trixie-staging/main armhf sphinx-common all 5.3.0-7 [652 kB]
Get:173 http://172.17.4.1/private trixie-staging/main armhf python3-sphinx all 5.3.0-7 [550 kB]
Get:174 http://172.17.4.1/private trixie-staging/main armhf sphinx-rtd-theme-common all 2.0.0~rc3+dfsg-2 [1021 kB]
Get:175 http://172.17.4.1/private trixie-staging/main armhf python3-sphinxcontrib.jquery all 4.1-4 [7272 B]
Get:176 http://172.17.4.1/private trixie-staging/main armhf python3-sphinx-rtd-theme all 2.0.0~rc3+dfsg-2 [28.3 kB]
debconf: delaying package configuration, since apt-utils is not installed
Fetched 117 MB in 11s (10.7 MB/s)
Selecting previously unselected package liblocale-gettext-perl.
(Reading database ... 12856 files and directories currently installed.)
Preparing to unpack .../liblocale-gettext-perl_1.07-6_armhf.deb ...
Unpacking liblocale-gettext-perl (1.07-6) ...
Selecting previously unselected package fonts-lato.
Preparing to unpack .../fonts-lato_2.015-1_all.deb ...
Unpacking fonts-lato (2.015-1) ...
Selecting previously unselected package libsigsegv2:armhf.
Preparing to unpack .../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 ... 12905 files and directories currently installed.)
Preparing to unpack .../0-gawk_1%3a5.2.1-2_armhf.deb ...
Unpacking gawk (1:5.2.1-2) ...
Selecting previously unselected package libjson-perl.
Preparing to unpack .../1-libjson-perl_4.10000-1_all.deb ...
Unpacking libjson-perl (4.10000-1) ...
Selecting previously unselected package postgresql-client-common.
Preparing to unpack .../2-postgresql-client-common_255_all.deb ...
Unpacking postgresql-client-common (255) ...
Selecting previously unselected package openssl.
Preparing to unpack .../3-openssl_3.0.11-1_armhf.deb ...
Unpacking openssl (3.0.11-1) ...
Selecting previously unselected package ssl-cert.
Preparing to unpack .../4-ssl-cert_1.1.2_all.deb ...
Unpacking ssl-cert (1.1.2) ...
Selecting previously unselected package ucf.
Preparing to unpack .../5-ucf_3.0043+nmu1_all.deb ...
Moving old data out of the way
Unpacking ucf (3.0043+nmu1) ...
Selecting previously unselected package postgresql-common.
Preparing to unpack .../6-postgresql-common_255_all.deb ...
Adding 'diversion of /usr/bin/pg_config to /usr/bin/pg_config.libpq-dev by postgresql-common'
Unpacking postgresql-common (255) ...
Selecting previously unselected package libpython3.11-minimal:armhf.
Preparing to unpack .../7-libpython3.11-minimal_3.11.6-3_armhf.deb ...
Unpacking libpython3.11-minimal:armhf (3.11.6-3) ...
Selecting previously unselected package libexpat1:armhf.
Preparing to unpack .../8-libexpat1_2.5.0-2_armhf.deb ...
Unpacking libexpat1:armhf (2.5.0-2) ...
Selecting previously unselected package python3.11-minimal.
Preparing to unpack .../9-python3.11-minimal_3.11.6-3_armhf.deb ...
Unpacking python3.11-minimal (3.11.6-3) ...
Setting up libpython3.11-minimal:armhf (3.11.6-3) ...
Setting up libexpat1:armhf (2.5.0-2) ...
Setting up python3.11-minimal (3.11.6-3) ...
Selecting previously unselected package python3-minimal.
(Reading database ... 13964 files and directories currently installed.)
Preparing to unpack .../python3-minimal_3.11.4-5_armhf.deb ...
Unpacking python3-minimal (3.11.4-5) ...
Selecting previously unselected package media-types.
Preparing to unpack .../media-types_10.1.0_all.deb ...
Unpacking media-types (10.1.0) ...
Selecting previously unselected package libpython3.11-stdlib:armhf.
Preparing to unpack .../libpython3.11-stdlib_3.11.6-3_armhf.deb ...
Unpacking libpython3.11-stdlib:armhf (3.11.6-3) ...
Selecting previously unselected package python3.11.
Preparing to unpack .../python3.11_3.11.6-3_armhf.deb ...
Unpacking python3.11 (3.11.6-3) ...
Selecting previously unselected package libpython3-stdlib:armhf.
Preparing to unpack .../libpython3-stdlib_3.11.4-5_armhf.deb ...
Unpacking libpython3-stdlib:armhf (3.11.4-5) ...
Setting up python3-minimal (3.11.4-5) ...
Selecting previously unselected package python3.
(Reading database ... 14380 files and directories currently installed.)
Preparing to unpack .../000-python3_3.11.4-5_armhf.deb ...
Unpacking python3 (3.11.4-5) ...
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.23.0-3_armhf.deb ...
Unpacking groff-base (1.23.0-3) ...
Selecting previously unselected package bsdextrautils.
Preparing to unpack .../003-bsdextrautils_2.39.2-5_armhf.deb ...
Unpacking bsdextrautils (2.39.2-5) ...
Selecting previously unselected package libpipeline1:armhf.
Preparing to unpack .../004-libpipeline1_1.5.7-1_armhf.deb ...
Unpacking libpipeline1:armhf (1.5.7-1) ...
Selecting previously unselected package man-db.
Preparing to unpack .../005-man-db_2.11.2-3_armhf.deb ...
Unpacking man-db (2.11.2-3) ...
Selecting previously unselected package ca-certificates.
Preparing to unpack .../006-ca-certificates_20230311_all.deb ...
Unpacking ca-certificates (20230311) ...
Selecting previously unselected package libmagic-mgc.
Preparing to unpack .../007-libmagic-mgc_1%3a5.45-2_armhf.deb ...
Unpacking libmagic-mgc (1:5.45-2) ...
Selecting previously unselected package libmagic1:armhf.
Preparing to unpack .../008-libmagic1_1%3a5.45-2_armhf.deb ...
Unpacking libmagic1:armhf (1:5.45-2) ...
Selecting previously unselected package file.
Preparing to unpack .../009-file_1%3a5.45-2_armhf.deb ...
Unpacking file (1:5.45-2) ...
Selecting previously unselected package gettext-base.
Preparing to unpack .../010-gettext-base_0.21-13_armhf.deb ...
Unpacking gettext-base (0.21-13) ...
Selecting previously unselected package libc-l10n.
Preparing to unpack .../011-libc-l10n_2.37-12+rpi2_all.deb ...
Unpacking libc-l10n (2.37-12+rpi2) ...
Selecting previously unselected package locales.
Preparing to unpack .../012-locales_2.37-12+rpi2_all.deb ...
Unpacking locales (2.37-12+rpi2) ...
Selecting previously unselected package m4.
Preparing to unpack .../013-m4_1.4.19-4_armhf.deb ...
Unpacking m4 (1.4.19-4) ...
Selecting previously unselected package autoconf.
Preparing to unpack .../014-autoconf_2.71-3_all.deb ...
Unpacking autoconf (2.71-3) ...
Selecting previously unselected package autotools-dev.
Preparing to unpack .../015-autotools-dev_20220109.1_all.deb ...
Unpacking autotools-dev (20220109.1) ...
Selecting previously unselected package automake.
Preparing to unpack .../016-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 .../017-autopoint_0.21-13_all.deb ...
Unpacking autopoint (0.21-13) ...
Selecting previously unselected package sbcl.
Preparing to unpack .../018-sbcl_2%3a2.3.7-2_armhf.deb ...
Unpacking sbcl (2:2.3.7-2) ...
Selecting previously unselected package buildapp.
Preparing to unpack .../019-buildapp_1.5.6-3_armhf.deb ...
Unpacking buildapp (1.5.6-3) ...
Selecting previously unselected package cl-alexandria.
Preparing to unpack .../020-cl-alexandria_20211025.gita67c3a6-1_all.deb ...
Unpacking cl-alexandria (20211025.gita67c3a6-1) ...
Selecting previously unselected package cl-esrap.
Preparing to unpack .../021-cl-esrap_20211008.gitc99c33a-1_all.deb ...
Unpacking cl-esrap (20211008.gitc99c33a-1) ...
Selecting previously unselected package cl-ppcre.
Preparing to unpack .../022-cl-ppcre_20220126.gitb4056c5-1_all.deb ...
Unpacking cl-ppcre (20220126.gitb4056c5-1) ...
Selecting previously unselected package cl-abnf.
Preparing to unpack .../023-cl-abnf_20200229.gitba1fbb1-1_all.deb ...
Unpacking cl-abnf (20200229.gitba1fbb1-1) ...
Selecting previously unselected package cl-anaphora.
Preparing to unpack .../024-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 .../025-cl-asdf_2%3a3.3.6-1_all.deb ...
Unpacking cl-asdf (2:3.3.6-1) ...
Selecting previously unselected package cl-asdf-finalizers.
Preparing to unpack .../026-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 .../027-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 .../028-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 .../029-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 .../030-cl-babel_20200719.gitf892d05-2_all.deb ...
Unpacking cl-babel (20200719.gitf892d05-2) ...
Selecting previously unselected package cl-rt.
Preparing to unpack .../031-cl-rt_20090812.gita6a7503-1_all.deb ...
Unpacking cl-rt (20090812.gita6a7503-1) ...
Selecting previously unselected package cl-kmrcl.
Preparing to unpack .../032-cl-kmrcl_1.111-2_all.deb ...
Unpacking cl-kmrcl (1.111-2) ...
Selecting previously unselected package cl-base64.
Preparing to unpack .../033-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 .../034-cl-bordeaux-threads_0.8.8-5_all.deb ...
Unpacking cl-bordeaux-threads (0.8.8-5) ...
Selecting previously unselected package libpkgconf3:armhf.
Preparing to unpack .../035-libpkgconf3_1.8.1-1_armhf.deb ...
Unpacking libpkgconf3:armhf (1.8.1-1) ...
Selecting previously unselected package pkgconf-bin.
Preparing to unpack .../036-pkgconf-bin_1.8.1-1_armhf.deb ...
Unpacking pkgconf-bin (1.8.1-1) ...
Selecting previously unselected package pkgconf:armhf.
Preparing to unpack .../037-pkgconf_1.8.1-1_armhf.deb ...
Unpacking pkgconf:armhf (1.8.1-1) ...
Selecting previously unselected package pkg-config:armhf.
Preparing to unpack .../038-pkg-config_1.8.1-1_armhf.deb ...
Unpacking pkg-config:armhf (1.8.1-1) ...
Selecting previously unselected package libffi-dev:armhf.
Preparing to unpack .../039-libffi-dev_3.4.4-1_armhf.deb ...
Unpacking libffi-dev:armhf (3.4.4-1) ...
Selecting previously unselected package zlib1g-dev:armhf.
Preparing to unpack .../040-zlib1g-dev_1%3a1.2.13.dfsg-3_armhf.deb ...
Unpacking zlib1g-dev:armhf (1:1.2.13.dfsg-3) ...
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-3_all.deb ...
Unpacking cl-ironclad (0.57-3) ...
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.17+ds-2_all.deb ...
Unpacking freetds-common (1.3.17+ds-2) ...
Selecting previously unselected package libct4:armhf.
Preparing to unpack .../077-libct4_1.3.17+ds-2_armhf.deb ...
Unpacking libct4:armhf (1.3.17+ds-2) ...
Selecting previously unselected package libsybdb5:armhf.
Preparing to unpack .../078-libsybdb5_1.3.17+ds-2_armhf.deb ...
Unpacking libsybdb5:armhf (1.3.17+ds-2) ...
Selecting previously unselected package freetds-dev.
Preparing to unpack .../079-freetds-dev_1.3.17+ds-2_armhf.deb ...
Unpacking freetds-dev (1.3.17+ds-2) ...
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-3_all.deb ...
Unpacking cl-postgres (20211113.git9d4332f-3) ...
Selecting previously unselected package cl-s-sql.
Preparing to unpack .../085-cl-s-sql_20211113.git9d4332f-3_all.deb ...
Unpacking cl-s-sql (20211113.git9d4332f-3) ...
Selecting previously unselected package cl-postmodern.
Preparing to unpack .../086-cl-postmodern_20211113.git9d4332f-3_all.deb ...
Unpacking cl-postmodern (20211113.git9d4332f-3) ...
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-3_all.deb ...
Unpacking cl-simple-date (20211113.git9d4332f-3) ...
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.11.7_all.deb ...
Unpacking libdebhelper-perl (13.11.7) ...
Selecting previously unselected package libtool.
Preparing to unpack .../099-libtool_2.4.7-7_all.deb ...
Unpacking libtool (2.4.7-7) ...
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-4_all.deb ...
Unpacking libsub-override-perl (0.09-4) ...
Selecting previously unselected package libfile-stripnondeterminism-perl.
Preparing to unpack .../103-libfile-stripnondeterminism-perl_1.13.1-1_all.deb ...
Unpacking libfile-stripnondeterminism-perl (1.13.1-1) ...
Selecting previously unselected package dh-strip-nondeterminism.
Preparing to unpack .../104-dh-strip-nondeterminism_1.13.1-1_all.deb ...
Unpacking dh-strip-nondeterminism (1.13.1-1) ...
Selecting previously unselected package libelf1:armhf.
Preparing to unpack .../105-libelf1_0.188-2.1+rpi1_armhf.deb ...
Unpacking libelf1:armhf (0.188-2.1+rpi1) ...
Selecting previously unselected package dwz.
Preparing to unpack .../106-dwz_0.15-1_armhf.deb ...
Unpacking dwz (0.15-1) ...
Selecting previously unselected package libicu72:armhf.
Preparing to unpack .../107-libicu72_72.1-4_armhf.deb ...
Unpacking libicu72:armhf (72.1-4) ...
Selecting previously unselected package libxml2:armhf.
Preparing to unpack .../108-libxml2_2.9.14+dfsg-1.3_armhf.deb ...
Unpacking libxml2:armhf (2.9.14+dfsg-1.3) ...
Selecting previously unselected package gettext.
Preparing to unpack .../109-gettext_0.21-13_armhf.deb ...
Unpacking gettext (0.21-13) ...
Selecting previously unselected package intltool-debian.
Preparing to unpack .../110-intltool-debian_0.35.0+20060710.6_all.deb ...
Unpacking intltool-debian (0.35.0+20060710.6) ...
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.11.7_all.deb ...
Unpacking debhelper (13.11.7) ...
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.19+dfsg-8_all.deb ...
Unpacking docutils-common (0.19+dfsg-8) ...
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.3_armhf.deb ...
Unpacking help2man (1.49.3) ...
Selecting previously unselected package libbsd0:armhf.
Preparing to unpack .../117-libbsd0_0.11.7-4_armhf.deb ...
Unpacking libbsd0:armhf (0.11.7-4) ...
Selecting previously unselected package libedit2:armhf.
Preparing to unpack .../118-libedit2_3.1-20230828-1_armhf.deb ...
Unpacking libedit2:armhf (3.1-20230828-1) ...
Selecting previously unselected package libjs-jquery.
Preparing to unpack .../119-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 .../120-libjs-underscore_1.13.4~dfsg+~1.11.4-3_all.deb ...
Unpacking libjs-underscore (1.13.4~dfsg+~1.11.4-3) ...
Selecting previously unselected package libjs-sphinxdoc.
Preparing to unpack .../121-libjs-sphinxdoc_5.3.0-7_all.deb ...
Unpacking libjs-sphinxdoc (5.3.0-7) ...
Selecting previously unselected package libz3-4:armhf.
Preparing to unpack .../122-libz3-4_4.8.12-3.1_armhf.deb ...
Unpacking libz3-4:armhf (4.8.12-3.1) ...
Selecting previously unselected package libllvm15:armhf.
Preparing to unpack .../123-libllvm15_1%3a15.0.6-4+rpi1+b1_armhf.deb ...
Unpacking libllvm15:armhf (1:15.0.6-4+rpi1+b1) ...
Selecting previously unselected package libpq5:armhf.
Preparing to unpack .../124-libpq5_16.0-2_armhf.deb ...
Unpacking libpq5:armhf (16.0-2) ...
Selecting previously unselected package libsqlite3-dev:armhf.
Preparing to unpack .../125-libsqlite3-dev_3.43.2-1_armhf.deb ...
Unpacking libsqlite3-dev:armhf (3.43.2-1) ...
Selecting previously unselected package libxslt1.1:armhf.
Preparing to unpack .../126-libxslt1.1_1.1.35-1_armhf.deb ...
Unpacking libxslt1.1:armhf (1.1.35-1) ...
Selecting previously unselected package postgresql-client-16.
Preparing to unpack .../127-postgresql-client-16_16.0-2_armhf.deb ...
Unpacking postgresql-client-16 (16.0-2) ...
Selecting previously unselected package postgresql-16.
Preparing to unpack .../128-postgresql-16_16.0-2_armhf.deb ...
Unpacking postgresql-16 (16.0-2) ...
Selecting previously unselected package postgresql-16-ip4r.
Preparing to unpack .../129-postgresql-16-ip4r_2.4.2-2_armhf.deb ...
Unpacking postgresql-16-ip4r (2.4.2-2) ...
Selecting previously unselected package python-babel-localedata.
Preparing to unpack .../130-python-babel-localedata_2.10.3-2_all.deb ...
Unpacking python-babel-localedata (2.10.3-2) ...
Selecting previously unselected package python3-alabaster.
Preparing to unpack .../131-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 .../132-python3-pkg-resources_68.1.2-2_all.deb ...
Unpacking python3-pkg-resources (68.1.2-2) ...
Selecting previously unselected package python3-tz.
Preparing to unpack .../133-python3-tz_2023.3.post1-1_all.deb ...
Unpacking python3-tz (2023.3.post1-1) ...
Selecting previously unselected package python3-babel.
Preparing to unpack .../134-python3-babel_2.10.3-2_all.deb ...
Unpacking python3-babel (2.10.3-2) ...
Selecting previously unselected package python3-certifi.
Preparing to unpack .../135-python3-certifi_2023.7.22-1_all.deb ...
Unpacking python3-certifi (2023.7.22-1) ...
Selecting previously unselected package python3-chardet.
Preparing to unpack .../136-python3-chardet_5.2.0+dfsg-1_all.deb ...
Unpacking python3-chardet (5.2.0+dfsg-1) ...
Selecting previously unselected package python3-charset-normalizer.
Preparing to unpack .../137-python3-charset-normalizer_3.3.0-1_all.deb ...
Unpacking python3-charset-normalizer (3.3.0-1) ...
Selecting previously unselected package python3-lib2to3.
Preparing to unpack .../138-python3-lib2to3_3.11.5-1_all.deb ...
Unpacking python3-lib2to3 (3.11.5-1) ...
Selecting previously unselected package python3-distutils.
Preparing to unpack .../139-python3-distutils_3.11.5-1_all.deb ...
Unpacking python3-distutils (3.11.5-1) ...
Selecting previously unselected package python3-roman.
Preparing to unpack .../140-python3-roman_3.3-3_all.deb ...
Unpacking python3-roman (3.3-3) ...
Selecting previously unselected package python3-docutils.
Preparing to unpack .../141-python3-docutils_0.19+dfsg-8_all.deb ...
Unpacking python3-docutils (0.19+dfsg-8) ...
Selecting previously unselected package python3-idna.
Preparing to unpack .../142-python3-idna_3.3-2_all.deb ...
Unpacking python3-idna (3.3-2) ...
Selecting previously unselected package python3-imagesize.
Preparing to unpack .../143-python3-imagesize_1.4.1-1_all.deb ...
Unpacking python3-imagesize (1.4.1-1) ...
Selecting previously unselected package python3-markupsafe.
Preparing to unpack .../144-python3-markupsafe_2.1.3-1_armhf.deb ...
Unpacking python3-markupsafe (2.1.3-1) ...
Selecting previously unselected package python3-jinja2.
Preparing to unpack .../145-python3-jinja2_3.1.2-1_all.deb ...
Unpacking python3-jinja2 (3.1.2-1) ...
Selecting previously unselected package python3-packaging.
Preparing to unpack .../146-python3-packaging_23.1-1_all.deb ...
Unpacking python3-packaging (23.1-1) ...
Selecting previously unselected package python3-pygments.
Preparing to unpack .../147-python3-pygments_2.15.1+dfsg-1_all.deb ...
Unpacking python3-pygments (2.15.1+dfsg-1) ...
Selecting previously unselected package python3-six.
Preparing to unpack .../148-python3-six_1.16.0-4_all.deb ...
Unpacking python3-six (1.16.0-4) ...
Selecting previously unselected package python3-urllib3.
Preparing to unpack .../149-python3-urllib3_1.26.18-1_all.deb ...
Unpacking python3-urllib3 (1.26.18-1) ...
Selecting previously unselected package python3-requests.
Preparing to unpack .../150-python3-requests_2.31.0+dfsg-1_all.deb ...
Unpacking python3-requests (2.31.0+dfsg-1) ...
Selecting previously unselected package python3-snowballstemmer.
Preparing to unpack .../151-python3-snowballstemmer_2.2.0-4_all.deb ...
Unpacking python3-snowballstemmer (2.2.0-4) ...
Selecting previously unselected package sphinx-common.
Preparing to unpack .../152-sphinx-common_5.3.0-7_all.deb ...
Unpacking sphinx-common (5.3.0-7) ...
Selecting previously unselected package python3-sphinx.
Preparing to unpack .../153-python3-sphinx_5.3.0-7_all.deb ...
Unpacking python3-sphinx (5.3.0-7) ...
Selecting previously unselected package sphinx-rtd-theme-common.
Preparing to unpack .../154-sphinx-rtd-theme-common_2.0.0~rc3+dfsg-2_all.deb ...
Unpacking sphinx-rtd-theme-common (2.0.0~rc3+dfsg-2) ...
Selecting previously unselected package python3-sphinxcontrib.jquery.
Preparing to unpack .../155-python3-sphinxcontrib.jquery_4.1-4_all.deb ...
Unpacking python3-sphinxcontrib.jquery (4.1-4) ...
Selecting previously unselected package python3-sphinx-rtd-theme.
Preparing to unpack .../156-python3-sphinx-rtd-theme_2.0.0~rc3+dfsg-2_all.deb ...
Unpacking python3-sphinx-rtd-theme (2.0.0~rc3+dfsg-2) ...
Selecting previously unselected package sbuild-build-depends-pgloader-dummy.
Preparing to unpack .../157-sbuild-build-depends-pgloader-dummy_0.invalid.0_armhf.deb ...
Unpacking sbuild-build-depends-pgloader-dummy (0.invalid.0) ...
Setting up media-types (10.1.0) ...
Setting up postgresql-client-common (255) ...
Setting up libpipeline1:armhf (1.5.7-1) ...
Setting up cl-trivial-utf-8 (20111001-1.1) ...
Setting up libc-l10n (2.37-12+rpi2) ...
Setting up fonts-lato (2.015-1) ...
Setting up cl-trivial-garbage (20211229.gitb3af9c0-1) ...
Setting up libicu72:armhf (72.1-4) ...
Setting up cl-garbage-pools (20130720-1.1) ...
Setting up bsdextrautils (2.39.2-5) ...
Setting up cl-closer-mop (2:20220227.giteabdf6a-1) ...
Setting up libmagic-mgc (1:5.45-2) ...
Setting up cl-metabang-bind (20200101.git9ab6e64-1) ...
Setting up gawk (1:5.2.1-2) ...
Setting up cl-asdf (2:3.3.6-1) ...
Setting up libarchive-zip-perl (1.68-1) ...
Setting up cl-closure-common (20101107-1.1) ...
Setting up cl-parse-number (1.7-1.1) ...
Setting up libpython3.11-stdlib:armhf (3.11.6-3) ...
Setting up libdebhelper-perl (13.11.7) ...
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-3) ...
Setting up cl-quri (20150804-1.1) ...
Setting up libmagic1:armhf (1:5.45-2) ...
Setting up libpq5:armhf (16.0-2) ...
Setting up gettext-base (0.21-13) ...
Setting up cl-named-readtables (20201221.gitc5689a4-1) ...
Setting up m4 (1.4.19-4) ...
Setting up cl-trivial-features (20210228.gitf6e8dd7-2) ...
Setting up cl-trivial-backtrace (20200511.git6eb65bd-1) ...
Setting up file (1:5.45-2) ...
Setting up libffi-dev:armhf (3.4.4-1) ...
Setting up locales (2.37-12+rpi2) ...
Generating locales (this might take a while)...
Generation complete.
Setting up python-babel-localedata (2.10.3-2) ...
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-3.1) ...
Setting up libpkgconf3:armhf (1.8.1-1) ...
Setting up libsqlite3-dev:armhf (3.43.2-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-13) ...
Setting up ucf (3.0043+nmu1) ...
Setting up pkgconf-bin (1.8.1-1) ...
Setting up cl-global-vars (0~20141013.gitc749f32-2) ...
Setting up autoconf (2.71-3) ...
Setting up cl-chipz (20220213.git82a17d3-1) ...
Setting up sbcl (2:2.3.7-2) ...
Setting up zlib1g-dev:armhf (1:1.2.13.dfsg-3) ...
Setting up cl-chunga (20220222.git7836609-1) ...
Setting up xml-core (0.18+nmu1) ...
Setting up libuchardet0:armhf (0.0.7-1) ...
Setting up libjson-perl (4.10000-1) ...
Setting up cl-alexandria (20211025.gita67c3a6-1) ...
Setting up libsub-override-perl (0.09-4) ...
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.17+ds-2) ...
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.11-1) ...
Setting up libbsd0:armhf (0.11.7-4) ...
Setting up cl-ieee-floats (20170830-1.1) ...
Setting up libelf1:armhf (0.188-2.1+rpi1) ...
Setting up libxml2:armhf (2.9.14+dfsg-1.3) ...
Setting up fonts-font-awesome (5.0.10+really4.7.0~dfsg-4.1) ...
Setting up sphinx-rtd-theme-common (2.0.0~rc3+dfsg-2) ...
Setting up liblocale-gettext-perl (1.07-6) ...
Setting up libpython3-stdlib:armhf (3.11.4-5) ...
Setting up libjs-underscore (1.13.4~dfsg+~1.11.4-3) ...
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.1-1) ...
Setting up cl-containers (20170403-1.1) ...
Setting up python3.11 (3.11.6-3) ...
Setting up gettext (0.21-13) ...
Setting up cl-flexi-streams (20210728.git41af5dc-1) ...
Setting up cl-uax-15 (0~20211021.git75c8a87-3) ...
Setting up libtool (2.4.7-7) ...
Setting up cl-ixf (20180228-1.1) ...
Setting up postgresql-client-16 (16.0-2) ...
update-alternatives: using /usr/share/postgresql/16/man/man1/psql.1.gz to provide /usr/share/man/man1/psql.1.gz (psql.1.gz) in auto mode
Setting up libedit2:armhf (3.1-20230828-1) ...
Setting up libsybdb5:armhf (1.3.17+ds-2) ...
Setting up python3 (3.11.4-5) ...
Setting up python3-markupsafe (2.1.3-1) ...
Setting up cl-babel (20200719.gitf892d05-2) ...
Setting up cl-bordeaux-threads (0.8.8-5) ...
Setting up python3-tz (2023.3.post1-1) ...
Setting up pkgconf:armhf (1.8.1-1) ...
Setting up intltool-debian (0.35.0+20060710.6) ...
Setting up help2man (1.49.3) ...
Setting up python3-six (1.16.0-4) ...
Setting up dh-autoreconf (20) ...
Setting up ca-certificates (20230311) ...
Updating certificates in /etc/ssl/certs...
140 added, 0 removed; done.
Setting up python3-roman (3.3-3) ...
Setting up python3-jinja2 (3.1.2-1) ...
Setting up python3-packaging (23.1-1) ...
Setting up libct4:armhf (1.3.17+ds-2) ...
Setting up python3-certifi (2023.7.22-1) ...
Setting up ssl-cert (1.1.2) ...
Setting up cl-kmrcl (1.111-2) ...
Setting up python3-snowballstemmer (2.2.0-4) ...
Setting up cl-lparallel (20160825-1.1) ...
Setting up postgresql-common (255) ...
supported-versions: WARNING! Unknown distribution ID in /etc/os-release: 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:
invoke-rc.d: could not determine current runlevel
invoke-rc.d: policy-rc.d denied execution of start.
Setting up python3-idna (3.3-2) ...
Setting up pkg-config:armhf (1.8.1-1) ...
Setting up cl-usocket (0.8.3-2) ...
Setting up libjs-sphinxdoc (5.3.0-7) ...
Setting up cl-md5 (1:20210622.git906593f-1) ...
Setting up python3-urllib3 (1.26.18-1) ...
Setting up dh-strip-nondeterminism (1.13.1-1) ...
Setting up dwz (0.15-1) ...
Setting up cl-esrap (20211008.gitc99c33a-1) ...
Setting up groff-base (1.23.0-3) ...
Setting up libllvm15:armhf (1:15.0.6-4+rpi1+b1) ...
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 python3-lib2to3 (3.11.5-1) ...
Setting up python3-imagesize (1.4.1-1) ...
Setting up cl-base64 (3.4.0-1) ...
Setting up python3-pkg-resources (68.1.2-2) ...
Setting up python3-distutils (3.11.5-1) ...
Setting up cl-ironclad (0.57-3) ...
Setting up cl-interpol (20220725.gitd4f49d4-1) ...
Setting up postgresql-16 (16.0-2) ...
Creating new PostgreSQL cluster 16/main ...
/usr/lib/postgresql/16/bin/initdb -D /var/lib/postgresql/16/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/16/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
invoke-rc.d: could not determine current runlevel
invoke-rc.d: policy-rc.d denied execution of start.
Setting up freetds-dev (1.3.17+ds-2) ...
Setting up python3-babel (2.10.3-2) ...
update-alternatives: using /usr/bin/pybabel-python3 to provide /usr/bin/pybabel (pybabel) in auto mode
Setting up cl-fad (20220110.git3f4d32d-1) ...
Setting up python3-charset-normalizer (3.3.0-1) ...
Setting up python3-alabaster (0.7.12-1) ...
Setting up po-debconf (1.0.21+nmu1) ...
Setting up cl-csv (20200929.git68ecb5d-1) ...
Setting up man-db (2.11.2-3) ...
Not building database; man-db/auto-update is not 'true'.
Setting up cl-mssql (20180228-1.1) ...
Setting up python3-pygments (2.15.1+dfsg-1) ...
Setting up cl-qmynd (20180131-1.1) ...
Setting up cl-plus-ssl (20220328.git8b91648-4) ...
Setting up python3-chardet (5.2.0+dfsg-1) ...
Setting up cl-sqlite (20130615-2.1) ...
Setting up sphinx-common (5.3.0-7) ...
Setting up python3-requests (2.31.0+dfsg-1) ...
Setting up cl-postgres (20211113.git9d4332f-3) ...
Setting up cl-drakma (2.0.8-1) ...
Setting up postgresql-16-ip4r (2.4.2-2) ...
Setting up cl-uuid (20130813-1.1) ...
Setting up cl-local-time (20180228-1.1) ...
Setting up debhelper (13.11.7) ...
Setting up cl-zs3 (1.3.1-1.1) ...
Setting up cl-s-sql (20211113.git9d4332f-3) ...
Setting up cl-postmodern (20211113.git9d4332f-3) ...
Processing triggers for sgml-base (1.31) ...
Processing triggers for libc-bin (2.37-12+rpi2) ...
Setting up docutils-common (0.19+dfsg-8) ...
Processing triggers for sgml-base (1.31) ...
Setting up python3-docutils (0.19+dfsg-8) ...
Setting up python3-sphinx (5.3.0-7) ...
Setting up python3-sphinxcontrib.jquery (4.1-4) ...
Setting up python3-sphinx-rtd-theme (2.0.0~rc3+dfsg-2) ...
Setting up sbuild-build-depends-pgloader-dummy (0.invalid.0) ...
Processing triggers for ca-certificates (20230311) ...
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.41-6+rpi1 dpkg-dev_1.22.1+rpi1 g++-12_12.3.0-10+rpi1 g++-13_13.2.0-5+rpi1 gcc-12_12.3.0-10+rpi1 gcc-13_13.2.0-5+rpi1 libc6-dev_2.37-12+rpi2 libstdc++-12-dev_12.3.0-10+rpi1 libstdc++-13-dev_13.2.0-5+rpi1 libstdc++6_13.2.0-5+rpi1 linux-libc-dev_6.5.6-1+rpi1
Package versions: adduser_3.137 apt_2.7.6 autoconf_2.71-3 automake_1:1.16.5-1.3 autopoint_0.21-13 autotools-dev_20220109.1 base-files_13+rpi1 base-passwd_3.6.2 bash_5.2.15-2 binutils_2.41-6+rpi1 binutils-arm-linux-gnueabihf_2.41-6+rpi1 binutils-common_2.41-6+rpi1 bsdextrautils_2.39.2-5 bsdutils_1:2.39.2-5 build-essential_12.10 buildapp_1.5.6-3 bzip2_1.0.8-5+b2 ca-certificates_20230311 cl-abnf_20200229.gitba1fbb1-1 cl-alexandria_20211025.gita67c3a6-1 cl-anaphora_1:0.9.8-1 cl-asdf_2:3.3.6-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-3 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-3 cl-postmodern_20211113.git9d4332f-3 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-3 cl-simple-date_20211113.git9d4332f-3 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_9.1-1 cpp_4:13.2.0-1+rpi1 cpp-12_12.3.0-10+rpi1 cpp-13_13.2.0-5+rpi1 dash_0.5.12-6 debconf_1.5.82 debhelper_13.11.7 debianutils_5.14 dh-autoreconf_20 dh-strip-nondeterminism_1.13.1-1 diffutils_1:3.10-1 dirmngr_2.2.40-1.1 docutils-common_0.19+dfsg-8 dpkg_1.22.1+rpi1 dpkg-dev_1.22.1+rpi1 dwz_0.15-1 e2fsprogs_1.47.0-2 fakeroot_1.32.1-1 file_1:5.45-2 findutils_4.9.0-5 fonts-font-awesome_5.0.10+really4.7.0~dfsg-4.1 fonts-lato_2.015-1 freetds-common_1.3.17+ds-2 freetds-dev_1.3.17+ds-2 g++_4:13.2.0-1+rpi1 g++-12_12.3.0-10+rpi1 g++-13_13.2.0-5+rpi1 gawk_1:5.2.1-2 gcc_4:13.2.0-1+rpi1 gcc-12_12.3.0-10+rpi1 gcc-12-base_12.3.0-10+rpi1 gcc-13_13.2.0-5+rpi1 gcc-13-base_13.2.0-5+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-13 gettext-base_0.21-13 gnupg_2.2.40-1.1 gnupg-l10n_2.2.40-1.1 gnupg-utils_2.2.40-1.1 gpg_2.2.40-1.1 gpg-agent_2.2.40-1.1 gpg-wks-client_2.2.40-1.1 gpg-wks-server_2.2.40-1.1 gpgconf_2.2.40-1.1 gpgsm_2.2.40-1.1 gpgv_2.2.40-1.1 grep_3.11-3 groff-base_1.23.0-3 gzip_1.12-1 help2man_1.49.3 hostname_3.23+nmu1 init-system-helpers_1.65.2 intltool-debian_0.35.0+20060710.6 iputils-ping_3:20221126-1 krb5-locales_1.20.1-5 libacl1_2.3.1-3 libapt-pkg6.0_2.7.6 libarchive-zip-perl_1.68-1 libasan8_13.2.0-5+rpi1 libassuan0_2.5.6-1 libatomic1_13.2.0-5+rpi1 libattr1_1:2.5.1-4 libaudit-common_1:3.1.1-1 libaudit1_1:3.1.1-1 libbinutils_2.41-6+rpi1 libblkid1_2.39.2-5 libbsd0_0.11.7-4 libbz2-1.0_1.0.8-5+b2 libc-bin_2.37-12+rpi2 libc-dev-bin_2.37-12+rpi2 libc-l10n_2.37-12+rpi2 libc6_2.37-12+rpi2 libc6-dev_2.37-12+rpi2 libcap-ng0_0.8.3-1+b1 libcap2_1:2.66-4 libcap2-bin_1:2.66-4 libcc1-0_13.2.0-5+rpi1 libcom-err2_1.47.0-2 libcrypt-dev_1:4.4.36-2 libcrypt1_1:4.4.36-2 libct4_1.3.17+ds-2 libctf-nobfd0_2.41-6+rpi1 libctf0_2.41-6+rpi1 libdb5.3_5.3.28+dfsg2-2 libdebconfclient0_0.271 libdebhelper-perl_13.11.7 libdpkg-perl_1.22.1+rpi1 libedit2_3.1-20230828-1 libelf1_0.188-2.1+rpi1 libexpat1_2.5.0-2 libext2fs2_1.47.0-2 libfakeroot_1.32.1-1 libffi-dev_3.4.4-1 libffi8_3.4.4-1 libfile-find-rule-perl_0.34-3 libfile-stripnondeterminism-perl_1.13.1-1 libgcc-12-dev_12.3.0-10+rpi1 libgcc-13-dev_13.2.0-5+rpi1 libgcc-s1_13.2.0-5+rpi1 libgcrypt20_1.10.2-3 libgdbm-compat4_1.23-3 libgdbm6_1.23-3 libgmp10_2:6.3.0+dfsg-2 libgnutls30_3.8.1-4 libgomp1_13.2.0-5+rpi1 libgpg-error0_1.47-2 libgssapi-krb5-2_1.20.1-5 libhogweed6_3.9.1-2 libicu72_72.1-4 libidn2-0_2.3.4-1 libisl23_0.26-3 libjansson4_2.14-2 libjs-jquery_3.6.1+dfsg+~3.5.14-1 libjs-sphinxdoc_5.3.0-7 libjs-underscore_1.13.4~dfsg+~1.11.4-3 libjson-perl_4.10000-1 libk5crypto3_1.20.1-5 libkeyutils1_1.6.3-2 libkrb5-3_1.20.1-5 libkrb5support0_1.20.1-5 libksba8_1.6.4-2 libldap-2.5-0_2.5.13+dfsg-5+rpi1 libllvm15_1:15.0.6-4+rpi1+b1 liblocale-gettext-perl_1.07-6 liblz4-1_1.9.4-1+rpi1+b1 liblzma5_5.4.4-0.1 libmagic-mgc_1:5.45-2 libmagic1_1:5.45-2 libmd0_1.1.0-1 libmount1_2.39.2-5 libmpc3_1.3.1-1 libmpfr6_4.2.1-1 libncursesw6_6.4+20231016-1 libnettle8_3.9.1-2 libnpth0_1.6-3 libnsl-dev_1.3.0-3 libnsl2_1.3.0-3 libnumber-compare-perl_0.03-3 libp11-kit0_0.25.0-5 libpam-cap_1:2.66-4 libpam-modules_1.5.2-9.1 libpam-modules-bin_1.5.2-9.1 libpam-runtime_1.5.2-9.1 libpam0g_1.5.2-9.1 libpcre2-8-0_10.42-4 libpcre3_2:8.39-15 libperl5.36_5.36.0-9 libpipeline1_1.5.7-1 libpkgconf3_1.8.1-1 libpq5_16.0-2 libpython3-stdlib_3.11.4-5 libpython3.11-minimal_3.11.6-3 libpython3.11-stdlib_3.11.6-3 libreadline8_8.2-1.3 libsasl2-2_2.1.28+dfsg1-3 libsasl2-modules-db_2.1.28+dfsg1-3 libseccomp2_2.5.4-1+rpi1+b1 libselinux1_3.5-1 libsemanage-common_3.5-1 libsemanage2_3.5-1 libsepol1_3.1-1 libsepol2_3.5-1 libsframe1_2.41-6+rpi1 libsigsegv2_2.14-1 libsmartcols1_2.39.2-5 libsqlite3-0_3.43.2-1 libsqlite3-dev_3.43.2-1 libss2_1.47.0-2 libssl1.1_1.1.1o-1 libssl3_3.0.11-1 libstdc++-12-dev_12.3.0-10+rpi1 libstdc++-13-dev_13.2.0-5+rpi1 libstdc++6_13.2.0-5+rpi1 libsub-override-perl_0.09-4 libsybdb5_1.3.17+ds-2 libsystemd0_254.5-1+rpi1 libtasn1-6_4.19.0-3 libtext-glob-perl_0.11-3 libtinfo6_6.4+20231016-1 libtirpc-common_1.3.3+ds-1 libtirpc-dev_1.3.3+ds-1 libtirpc3_1.3.3+ds-1 libtool_2.4.7-7 libubsan1_13.2.0-5+rpi1 libuchardet0_0.0.7-1 libudev1_254.5-1+rpi1 libunistring2_1.0-2 libunistring5_1.1-2 libuuid1_2.39.2-5 libxml2_2.9.14+dfsg-1.3 libxslt1.1_1.1.35-1 libxxhash0_0.8.2-2 libz3-4_4.8.12-3.1 libzstd1_1.5.5+dfsg2-2 linux-libc-dev_6.5.6-1+rpi1 locales_2.37-12+rpi2 login_1:4.13+dfsg1-3 logsave_1.47.0-2 lsb-base_11.6+rpi1 m4_1.4.19-4 make_4.3-4.1 man-db_2.11.2-3 mawk_1.3.4.20230808-1 media-types_10.1.0 mount_2.39.2-5 nano_7.2-1 ncurses-base_6.4+20231016-1 ncurses-bin_6.4+20231016-1 netbase_6.4 openssl_3.0.11-1 passwd_1:4.13+dfsg1-3 patch_2.7.6-7 perl_5.36.0-9 perl-base_5.36.0-9 perl-modules-5.36_5.36.0-9 pinentry-curses_1.2.1-1 pkg-config_1.8.1-1 pkgconf_1.8.1-1 pkgconf-bin_1.8.1-1 po-debconf_1.0.21+nmu1 postgresql-16_16.0-2 postgresql-16-ip4r_2.4.2-2 postgresql-client-16_16.0-2 postgresql-client-common_255 postgresql-common_255 python-babel-localedata_2.10.3-2 python3_3.11.4-5 python3-alabaster_0.7.12-1 python3-babel_2.10.3-2 python3-certifi_2023.7.22-1 python3-chardet_5.2.0+dfsg-1 python3-charset-normalizer_3.3.0-1 python3-distutils_3.11.5-1 python3-docutils_0.19+dfsg-8 python3-idna_3.3-2 python3-imagesize_1.4.1-1 python3-jinja2_3.1.2-1 python3-lib2to3_3.11.5-1 python3-markupsafe_2.1.3-1 python3-minimal_3.11.4-5 python3-packaging_23.1-1 python3-pkg-resources_68.1.2-2 python3-pygments_2.15.1+dfsg-1 python3-requests_2.31.0+dfsg-1 python3-roman_3.3-3 python3-six_1.16.0-4 python3-snowballstemmer_2.2.0-4 python3-sphinx_5.3.0-7 python3-sphinx-rtd-theme_2.0.0~rc3+dfsg-2 python3-sphinxcontrib.jquery_4.1-4 python3-tz_2023.3.post1-1 python3-urllib3_1.26.18-1 python3.11_3.11.6-3 python3.11-minimal_3.11.6-3 raspbian-archive-keyring_20120528.2 readline-common_8.2-1.3 rpcsvc-proto_1.4.3-1 sbcl_2:2.3.7-2 sbuild-build-depends-core-dummy_0.invalid.0 sbuild-build-depends-pgloader-dummy_0.invalid.0 sed_4.9-1 sensible-utils_0.0.20 sgml-base_1.31 sphinx-common_5.3.0-7 sphinx-rtd-theme-common_2.0.0~rc3+dfsg-2 ssl-cert_1.1.2 sysvinit-utils_3.08-3 tar_1.34+dfsg-1.2 tzdata_2023c-10 ucf_3.0043+nmu1 usrmerge_38 util-linux_2.39.2-5 util-linux-extra_2.39.2-5 xml-core_0.18+nmu1 xz-utils_5.4.4-0.1 zlib1g_1:1.2.13.dfsg-3 zlib1g-dev_1:1.2.13.dfsg-3
+------------------------------------------------------------------------------+
| Build |
+------------------------------------------------------------------------------+
Unpack source
-------------
gpgv: Signature made Thu Nov 2 17:16:12 2023 UTC
gpgv: using RSA key 5C48FE6157F49179597087C64C5A6BAB12D2A7AE
gpgv: Can't check signature: No public key
dpkg-source: warning: cannot verify inline signature for ./pgloader_3.6.10-1.dsc: no acceptable signature found
dpkg-source: info: extracting pgloader in /<<PKGBUILDDIR>>
dpkg-source: info: unpacking pgloader_3.6.10.orig.tar.gz
dpkg-source: info: unpacking pgloader_3.6.10-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=trixie-staging-armhf-sbuild
SCHROOT_CHROOT_NAME=trixie-staging-armhf-sbuild
SCHROOT_COMMAND=env
SCHROOT_GID=112
SCHROOT_GROUP=buildd
SCHROOT_SESSION_ID=trixie-staging-armhf-sbuild-d888ede5-886e-4ada-a4f3-996b10c84c5c
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.10-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.10/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
# sanity checks on version number
[ "3.6.10" = "3.6.10" ] # Makefile = docs/conf.py version
[ "3.6.10" = "3.6.10" ] # Makefile = pgloader.spec version
[ "3.6.10" = "3.6.10" ] # Makefile = debian/changelog version
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 24 SEP 2022 09:05:35 AM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-asdf/build/asdf-tmp7LQ0A0VI.fasl
; compilation finished in 0:00:24.104
;; 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 8192 bytes into 1624 at level 9
compressed 90869760 bytes into 22310472 at level 9
compressed 20217856 bytes into 4219113 at level 9
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<=
;; 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" {50E896A1}>
;; 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) {52810DD1}>
;; #<STANDARD-METHOD UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM (T T) {52AE8B21}>
;; 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) {53078239}>
;; #<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) {535D8F31}>
;; #<STANDARD-METHOD ASDF/COMPONENT:COMPONENT-EXTERNAL-FORMAT (COMPONENT) {5362EB09}>
;; #<STANDARD-METHOD ASDF/COMPONENT:AROUND-COMPILE-HOOK (COMPONENT) {5369A8C1}>
;; #<STANDARD-METHOD ASDF/COMPONENT:VERSION-SATISFIES (STRING T) {53761B79}>
;; SUB-COMPONENTS
;; #<PACKAGE "ASDF/OPERATION">
;; #<PACKAGE "ASDF/OPERATION">
;; NIL
;; #<STANDARD-METHOD COMMON-LISP:INITIALIZE-INSTANCE :AFTER (OPERATION) {53975EB9}>
;; #<STANDARD-METHOD ASDF/OPERATION:FIND-OPERATION (T STRING) {53A0BD79}>
;; #<PACKAGE "ASDF/SYSTEM">
;; #<PACKAGE "ASDF/SYSTEM">
;; #<STANDARD-METHOD ASDF/SYSTEM:COMPONENT-ENTRY-POINT (COMPONENT) {53A94A71}>
;; RESET-SYSTEM-CLASS
;; COERCE-FILENAME
;; SYSTEM-LICENSE
;; #<STANDARD-METHOD ASDF/SYSTEM:COMPONENT-BUILD-PATHNAME (COMPONENT) {54453AD1}>
;; #<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) {5880E799}>
;; #<STANDARD-CLASS ASDF/ACTION:NON-PROPAGATING-OPERATION>
;; #<STANDARD-METHOD ASDF/ACTION:SIDEWAY-OPERATION (OPERATION) {58D40BC1}>
;; #<STANDARD-METHOD ASDF/ACTION:INPUT-FILES (SELFWARD-OPERATION COMPONENT) {593AB491}>
;; #<STANDARD-METHOD ASDF/ACTION:MARK-OPERATION-DONE (OPERATION COMPONENT) {594C65B1}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T) {5261D9B1}>
;; #<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) {529B3EC9}>
;; #<STANDARD-METHOD ASDF/ACTION:OUTPUT-FILES (COMPILE-OP SYSTEM) {52D1DB29}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (LOAD-OP STATIC-FILE) {52FF4349}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (PREPARE-SOURCE-OP COMPONENT) {530D5C11}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (LOAD-SOURCE-OP STATIC-FILE) {53256691}>
;; #<STANDARD-METHOD ASDF/ACTION:OPERATION-DONE-P (TEST-OP SYSTEM) {53293361}>
;; #<PACKAGE "ASDF/FIND-COMPONENT">
;; #<PACKAGE "ASDF/FIND-COMPONENT">
;; #<STANDARD-METHOD COMMON-LISP:PRINT-OBJECT (MISSING-COMPONENT-OF-VERSION T) {5364A311}>
;; #<STANDARD-METHOD ASDF/FIND-COMPONENT:RESOLVE-DEPENDENCY-COMBINATION (T
(EQL
:VERSION)
T) {53A58261}>
;; #<PACKAGE "ASDF/FORCING">
;; #<PACKAGE "ASDF/FORCING">
;; #<STANDARD-METHOD ASDF/SESSION:FORCING (CONS) {53E342C9}>
;; #<PACKAGE "ASDF/PLAN">
;; #<PACKAGE "ASDF/PLAN">
;; #<STANDARD-METHOD ASDF/PLAN:RECORD-DEPENDENCY (SEQUENTIAL-PLAN OPERATION
COMPONENT) {54358391}>
;; NIL
;; +STATUS-VOID+
;; #<STANDARD-METHOD (COMMON-LISP:SETF ASDF/PLAN:ACTION-STATUS) :AFTER (T
SEQUENTIAL-PLAN
OPERATION
COMPONENT) {57F1B1C9}>
;; #<STANDARD-METHOD ASDF/PLAN:NEEDED-IN-IMAGE-P (OPERATION COMPONENT) {57F43EA9}>
;; #<STANDARD-METHOD ASDF/ACTION:COMPUTE-ACTION-STAMP (T OPERATION COMPONENT) {58257341}>
;; ACTION-UP-TO-DATE-P
;; REQUIRED-COMPONENTS
;; #<STANDARD-METHOD ASDF/PLAN:MARK-AS-DONE (PLAN OPERATION COMPONENT) {58ADEF71}>
;; #<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) {52D466C1}>
;; 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) {57F473D9}>
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (OPERATION COMPILED-FILE) {5800E0E9}>
;; #<STANDARD-METHOD ASDF/ACTION:OUTPUT-FILES (LIB-OP PREBUILT-SYSTEM) {580E5FD9}>
;; #<STANDARD-METHOD ASDF/ACTION:COMPONENT-DEPENDS-ON (LOAD-BUNDLE-OP
PRECOMPILED-SYSTEM) {58400751}>
;; #<PACKAGE "ASDF/CONCATENATE-SOURCE">
;; #<PACKAGE "ASDF/CONCATENATE-SOURCE">
;; #<STANDARD-METHOD ASDF/ACTION:PERFORM (BASIC-LOAD-COMPILED-CONCATENATED-SOURCE-OP
SYSTEM) {588560E9}>
;; #<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) {53333B39}>
;; REQUIRE-SYSTEM
;; #<PACKAGE "ASDF/INTERFACE">
;; #<PACKAGE "ASDF/USER">
;; #<PACKAGE "ASDF/FOOTER">
;; #<PACKAGE "ASDF/FOOTER">
;; NIL
;; 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.3.7.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.3.7.debian-linux-arm/usr/share/common-lisp/source/asdf-finalizers/finalizers-tmpCEL1YIM2.fasl
; compilation finished in 0:00:00.124
; 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.3.7.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.3.7.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.3.7.debian-linux-arm/usr/share/common-lisp/source/asdf-system-connections/dev/asdf-system-connections-tmpAKM32D0F.fasl
; compilation finished in 0:00:00.060
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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmp8UG37QJ5.fasl
; compilation finished in 0:00:00.024
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp65YV5VYW.fasl
; compilation finished in 0:00:00.044
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmpGO4MNX7G.fasl
; compilation finished in 0:00:00.064
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmp9NXH2K1.fasl
; compilation finished in 0:00:00.004
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmp6B86GLV2.fasl
; compilation finished in 0:00:00.076
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmpZWLLOVAH.fasl
; compilation finished in 0:00:00.048
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmpS9M8BVBG.fasl
; compilation finished in 0:00:00.296
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp205IFRLS.fasl
; compilation finished in 0:00:00.228
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpBW6GBZVX.fasl
; compilation finished in 0:00:00.436
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpMDMI656Q.fasl
; compilation finished in 0:00:00.284
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmpQN7VP0FI.fasl
; compilation finished in 0:00:00.296
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmpNOSTK6D0.fasl
; compilation finished in 0:00:00.140
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmp9RA72042.fasl
; compilation finished in 0:00:00.176
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmpGXZUHQQV.fasl
; compilation finished in 0:00:00.032
; 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 ...)
; processing (DECLAIM (NOTINLINE SEQUENCE-OF-LENGTH-P))
; processing (DEFUN EXTREMUM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmp1SBDRUB4.fasl
; compilation finished in 0:00:00.524
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpFJI67R2A.fasl
; compilation finished in 0:00:00.396
; 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.3.7.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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmp5G8XXQL5.fasl
; compilation finished in 0:00:00.032
; 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.3.7.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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpRJ7B84T0.fasl
; compilation finished in 0:00:00.028
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpOMGCSPAB.fasl
; compilation finished in 0:00:00.008
; 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.3.7.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.3.7.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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/packages-tmp21MKT5OO.fasl
; compilation finished in 0:00:00.012
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/encodings-tmpMXTBQGWB.fasl
; compilation finished in 0:00:00.436
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-ascii-tmpPPC4Z10Q.fasl
; compilation finished in 0:00:00.028
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-ebcdic-tmpRD3N4073.fasl
; compilation finished in 0:00:00.072
; 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.3.7.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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-iso-8859-tmp5P00NUE.fasl
; compilation finished in 0:00:00.424
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-unicode-tmp94JO3ZTC.fasl
; compilation finished in 0:00:00.724
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-cp437-tmp6OFDFVAR.fasl
; compilation finished in 0:00:00.052
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-cp1251-tmpRYWTYMDY.fasl
; compilation finished in 0:00:00.032
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-cp1252-tmpW78F18LW.fasl
; compilation finished in 0:00:00.028
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/jpn-table-tmpWUHTUDVN.fasl
; compilation finished in 0:00:00.448
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-jpn-tmpCK73UFEK.fasl
; compilation finished in 0:00:00.180
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-gbk-tmpEBEIAP0J.fasl
; compilation finished in 0:00:00.072
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/enc-koi8-tmpSE943D3D.fasl
; compilation finished in 0:00:00.092
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/external-format-tmpN5RKE5P2.fasl
; compilation finished in 0:00:00.112
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/strings-tmpNQZ6T1LT.fasl
; compilation finished in 0:00:09.136
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/gbk-map-tmpWLS9DP2S.fasl
; compilation finished in 0:00:00.184
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/babel/src/sharp-backslash-tmp8VCF5G6M.fasl
; compilation finished in 0:00:00.024
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/cffi-sbcl-tmp8DMZV8XU.fasl
; compilation finished in 0:00:00.672
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/package-tmpEGA125WT.fasl
; compilation finished in 0:00:00.012
; 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.3.7.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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/libraries-tmpGTSGBQIR.fasl
; compilation finished in 0:00:00.520
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/early-types-tmpRCRZ6VP.fasl
; compilation finished in 0:00:00.796
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/types-tmpC6WXNUWP.fasl
; compilation finished in 0:00:01.448
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/enum-tmpB17HDEGA.fasl
; compilation finished in 0:00:00.368
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/strings-tmpE3AQVWGT.fasl
; compilation finished in 0:00:06.928
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/structures-tmpYKOEPICF.fasl
; compilation finished in 0:00:00.140
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/functions-tmpQK8YY837.fasl
; compilation finished in 0:00:00.500
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-cffi/src/foreign-vars-tmpJQI6KMRZ.fasl
; compilation finished in 0:00:00.072
; 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.3.7.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 1 note
;; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/config-tmpUUOI3UDB.fasl
; compilation finished in 0:00:00.028
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-trivial-gray-streams/package-tmpG1IOPEUW.fasl
; compilation finished in 0:00:00.016
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-trivial-gray-streams/streams-tmpM0NOM18K.fasl
; compilation finished in 0:00:00.136
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/packages-tmpVIL8T0YR.fasl
; compilation finished in 0:00:00.012
; 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.3.7.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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/ascii-tmpTLIPDLNH.fasl
; compilation finished in 0:00:00.008
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/koi8-r-tmpMOOD9PZK.fasl
; compilation finished in 0:00:00.012
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/mac-tmpJSQEHKQD.fasl
; compilation finished in 0:00:00.012
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/iso-8859-tmpX9RFG54G.fasl
; compilation finished in 0:00:00.076
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/enc-cn-tbl-tmpJZYZV5YE.fasl
; compilation finished in 0:00:00.932
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/code-pages-tmp7AGT8VJK.fasl
; compilation finished in 0:00:00.124
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/specials-tmpVX9R9U8P.fasl
; compilation finished in 0:00:00.068
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/util-tmpQCDFKETQ.fasl
; compilation finished in 0:00:00.652
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/conditions-tmpO1PDDUR.fasl
; compilation finished in 0:00:00.056
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/external-format-tmpIX4U16ZB.fasl
; compilation finished in 0:00:00.724
; 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 &OPTIONAL).
; 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 TYPEP
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
; 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 TYPEP
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
; 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
; &OPTIONAL).
; 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
; &OPTIONAL).
; 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
; &OPTIONAL).
; 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
; &OPTIONAL).
; 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 TYPEP
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
; 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 TYPEP
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
; 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 TYPEP
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
; 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 TYPEP
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
; 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 TYPEP
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
; 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 TYPEP
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
; 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 TYPEP
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
; 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
; &OPTIONAL).
; 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
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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
; &OPTIONAL).
; etc.
; processing (DEFMETHOD CHARACTER-LENGTH ...)
; processing (DEFMETHOD CHARACTER-LENGTH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/length-tmp93OFNPHA.fasl
; compilation finished in 0:00:00.812
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 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 INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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
; ==>
; 1
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a LIST.
;
; note: unable to
; expand inline
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST VECTOR), not a STRING.
; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD
; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> SB-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 &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER -1073741823 1073741823), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/encode-tmpOH5AKS8D.fasl
; compilation finished in 0:00:05.896
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 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 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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)
; (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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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::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: 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: 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 {51F07589}>.
;
; note: deleting unused function
; (SB-C::LOCAL-INLINE READ-NEXT-WORD)
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR
; ==>
; (LET ((#:G39 FLEXI-STREAMS::OCTET-GETTER))
; (IF #:G39
; #:G39
; (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 ((#:G39 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 {51F07589}>.
;
; note: deleting unused function
; (SB-C::LOCAL-INLINE READ-NEXT-WORD)
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR
; ==>
; (LET ((#:G41 FLEXI-STREAMS::OCTET-GETTER))
; (IF #:G41
; #:G41
; (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 ((#:G41 OCTET-GETTER)))
; --> 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.
; --> 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: 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 {54F33F69}>.
;
; note: deleting unused function
; (SB-C::LOCAL-INLINE READ-NEXT-WORD)
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR
; ==>
; (LET ((#:G39 FLEXI-STREAMS::OCTET-GETTER))
; (IF #:G39
; #:G39
; (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 ((#:G39 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 {54F33F69}>.
;
; note: deleting unused function
; (SB-C::LOCAL-INLINE READ-NEXT-WORD)
; (FLEXI-STREAMS::READ-NEXT-BYTE)
; --> LET OR
; ==>
; (LET ((#:G41 FLEXI-STREAMS::OCTET-GETTER))
; (IF #:G41
; #:G41
; (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 ((#:G41 OCTET-GETTER)))
; --> 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.
; --> 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.
; --> 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: 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: 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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.
; (FLEXI-STREAMS::NEXT-BYTE 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::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.
; (FLEXI-STREAMS::NEXT-BYTE 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::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.
; (FLEXI-STREAMS::NEXT-BYTE 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-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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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.
; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)
;
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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.
; (FLEXI-STREAMS::NEXT-BYTE 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::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.
; (FLEXI-STREAMS::NEXT-BYTE 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::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.
; (FLEXI-STREAMS::NEXT-BYTE 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-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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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.
; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)
;
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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.
; (FLEXI-STREAMS::NEXT-BYTE 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::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.
; (FLEXI-STREAMS::NEXT-BYTE 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::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.
; (FLEXI-STREAMS::NEXT-BYTE 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-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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 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.
; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER)
;
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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-22 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-134 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-149 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-117 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-502 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-518 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-484 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-873 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-854 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-890 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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).
; (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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-22 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-134 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-149 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-117 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-502 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-518 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-484 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-873 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-890 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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-854 (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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).
; (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
; &OPTIONAL).
; 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)
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline ASH (cost 3) 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)
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/decode-tmpTNV77KDS.fasl
; compilation finished in 0:00:13.641
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 &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; 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: 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 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
; processing (DEFMETHOD MAKE-IN-MEMORY-INPUT-STREAM ...)
; processing (DEFMETHOD MAKE-IN-MEMORY-INPUT-STREAM ...)
; processing (DEFUN MAKE-OUTPUT-VECTOR ...)
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/in-memory-tmp9AOKGDLT.fasl
; compilation finished in 0:00:00.408
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/stream-tmpXS9JOGMS.fasl
; compilation finished in 0:00:00.372
; 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
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/output-tmpERBDX74X.fasl
; compilation finished in 0:00:00.104
; 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
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; 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
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 (OR LIST
; (AND (NOT (VECTOR CHARACTER)) (NOT BASE-STRING)
; VECTOR)
; SB-KERNEL:EXTENDED-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).
; (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 #:G2948))
;
; 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::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 &OPTIONAL).
; 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
; &OPTIONAL).
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; etc.
; (INCF POSITION (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START))
; ==>
; (+ (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START)
; (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G2948))
;
; 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 &OPTIONAL).
; 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)
; &OPTIONAL).
; 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 TYPEP
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
; 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
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/input-tmpTQIEF2IQ.fasl
; compilation finished in 0:00:00.212
; 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 &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/io-tmpPAAFO6LP.fasl
; compilation finished in 0:00:00.108
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-flexi-streams/strings-tmp4PCSVQUR.fasl
; compilation finished in 0:00:00.068
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/pkgdcl-tmpCUMSDKM4.fasl
; compilation finished in 0:00:00.008
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/bordeaux-threads-tmpVBY1FQ3S.fasl
; compilation finished in 0:00:00.140
; 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.3.7.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.3.7.debian-linux-arm/usr/share/common-lisp/source/bordeaux-threads/src/default-implementations-tmpPYED056U.fasl
; compilation finished in 0:00:00.416
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/trivial-garbage/trivial-garbage-tmpUOCPY155.fasl
; compilation finished in 0:00:00.076
; 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.3.7.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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/vector-tmpOUEHOD9C.fasl
; compilation finished in 0:00:00.452
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/list-tmp5ZHGID8G.fasl
; compilation finished in 0:00:00.624
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/extended-sequence-tmp9D2N5DM.fasl
; compilation finished in 0:00:00.408
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-split-sequence/api-tmpKDSLP2NX.fasl
; compilation finished in 0:00:01.752
; 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.3.7.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.3.7.debian-linux-arm/usr/share/common-lisp/source/usocket/package-tmpMFQG7214.fasl
; compilation finished in 0:00:00.012
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/usocket/usocket-tmpEL1UBVEC.fasl
; compilation finished in 0:00:00.608
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/usocket/condition-tmpO7N5WXBL.fasl
; compilation finished in 0:00:00.200
; 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 ...)
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/usocket/backend/sbcl-tmp7GPJW3WR.fasl
; compilation finished in 0:00:00.508
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/usocket/option-tmpESZVJLGB.fasl
; compilation finished in 0:00:00.216
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/package-tmp861VENRV.fasl
; compilation finished in 0:00:00.008
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/reload-tmp7MX18LSW.fasl
; compilation finished in 0:00:00.028
; 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.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/conditions-tmp4CP5SEFX.fasl
; compilation finished in 0:00:00.228
; 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.
; `(PROGN
; (SETF (GETHASH ,CL+SSL::FOREIGN-NAME-STR
; CL+SSL::*LATE-BOUND-FOREIGN-FUNCTION-POINTERS*)
; (OR (CFFI:FOREIGN-SYMBOL-POINTER ,CL+SSL::FOREIGN-NAME-STR ,@#)
; 'CL+SSL::FOREIGN-SYMBOL-NOT-FOUND))
; (DEFUN ,CL+SSL::LISP-NAME (,@CL+SSL::ARG-NAMES)
; ,@(WHEN CL+SSL::DOCSTRING (LIST CL+SSL::DOCSTRING))
; (LET ((,CL+SSL::PTR-VAR #))
; (WHEN (NULL ,CL+SSL::PTR-VAR)
; (ERROR
; "Unexpacted state, no value in *late-bound-foreign-function-pointers* for ~A"
; ,CL+SSL::FOREIGN-NAME-STR))
; (WHEN (EQ ,CL+SSL::PTR-VAR 'CL+SSL::FOREIGN-SYMBOL-NOT-FOUND)
; (ERROR "The current version of OpenSSL libcrypto doesn't provide ~A"
; ,CL+SSL::FOREIGN-NAME-STR))
; (CFFI:FOREIGN-FUNCALL-POINTER ,CL+SSL::PTR-VAR
; ,(WHEN CL+SSL::CONVENTION #)
; ,@(MAPCAN #'LIST CL+SSL::ARG-TYPES
; CL+SSL::ARG-NAMES)
; ,CL+SSL::RETURN-TYPE))))
; --> SB-IMPL::|List*| SB-IMPL::|Append| SB-IMPL::|List| SB-IMPL::|List|
; --> SB-IMPL::|List*| SB-IMPL::|Append|
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a LIST, not a NULL.
; --> SB-IMPL::|List*| SB-IMPL::|Append|
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a LIST, not a NULL.
; 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 ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFMACRO DEFINE-SSL-FUNCTION-EX => DEFCFUN-VERSIONED (:SINCE ,SINCE :VANISHED ,VANISHED)
; (APPEND CL+SSL::NAME-AND-OPTIONS '(:LIBRARY CL+SSL/CONFIG::LIBSSL))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a LIST, not a NULL.
; in: DEFMACRO DEFINE-SSL-FUNCTION-EX
; `(PROGN
; ,@(UNLESS (OR CL+SSL::SINCE CL+SSL::VANISHED)
; `((PUSHNEW ,(CAR CL+SSL::NAME-AND-OPTIONS)
; CL+SSL::*CL+SSL-SSL-FOREIGN-FUNCTION-NAMES* :TEST 'EQUAL)))
; (CL+SSL::DEFCFUN-VERSIONED
; (:SINCE ,CL+SSL::SINCE :VANISHED ,CL+SSL::VANISHED)
; ,(APPEND CL+SSL::NAME-AND-OPTIONS '(:LIBRARY CL+SSL/CONFIG::LIBSSL))
; ,@CL+SSL::BODY))
; --> SB-IMPL::|Append|
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a LIST, not a NULL.
; processing (DEFMACRO DEFINE-SSL-FUNCTION ...)
; processing (DEFMACRO DEFINE-CRYPTO-FUNCTION-EX ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFMACRO DEFINE-CRYPTO-FUNCTION-EX => DEFCFUN-VERSIONED (:SINCE ,SINCE :VANISHED ,VANISHED)
; (APPEND CL+SSL::NAME-AND-OPTIONS '(:LIBRARY CL+SSL/CONFIG::LIBCRYPTO))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a LIST, not a NULL.
; in: DEFMACRO DEFINE-CRYPTO-FUNCTION-EX
; `(PROGN
; ,@(UNLESS (OR CL+SSL::SINCE CL+SSL::VANISHED)
; `((PUSHNEW ,(CAR CL+SSL::NAME-AND-OPTIONS)
; CL+SSL::*CL+SSL-CRYPTO-FOREIGN-FUNCTION-NAMES* :TEST
; 'EQUAL)))
; (CL+SSL::DEFCFUN-VERSIONED
; (:SINCE ,CL+SSL::SINCE :VANISHED ,CL+SSL::VANISHED)
; ,(APPEND CL+SSL::NAME-AND-OPTIONS '(:LIBRARY CL+SSL/CONFIG::LIBCRYPTO))
; ,@CL+SSL::BODY))
; --> SB-IMPL::|Append|
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a LIST, not a NULL.
; 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.
; 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
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-2-SERVER-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_server_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/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_method" CL+SSL::SSL-TLSV1-2-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-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-2-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "1.1.0")
; ("TLS_method" CL+SSL::TLS-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::TLS-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::TLS-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLS_method" (:POINTER) :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_new" CL+SSL::SSL-CTX-NEW)
; CL+SSL::SSL-CTX
; (METHOD CL+SSL::SSL-METHOD))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-NEW
; (METHOD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-NEW
; (LET ((#:G0 METHOD))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_new" (:POINTER #:G0 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_new" CL+SSL::SSL-NEW)
; CL+SSL::SSL-POINTER
; (CL+SSL::CTX CL+SSL::SSL-CTX))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-NEW
; (CL+SSL::CTX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-NEW
; (LET ((#:G0 CL+SSL::CTX))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_new" (:POINTER #:G0 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_get_fd" SSL-GET-FD) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_get_fd" SSL-GET-FD)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_get_fd" CL+SSL::SSL-GET-FD)
; :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-FD
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-GET-FD
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_fd" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_set_fd" SSL-SET-FD) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_set_fd" SSL-SET-FD)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_set_fd" CL+SSL::SSL-SET-FD)
; :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER)
; (CL+SSL::FD :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-SET-FD
; (CL+SSL::SSL CL+SSL::FD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-SET-FD
; (LET ((#:G0 CL+SSL::SSL))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_set_fd" # :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBSSL)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_set_bio" SSL-SET-BIO) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_get_error" SSL-GET-ERROR) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_get_error" SSL-GET-ERROR)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_get_error" CL+SSL::SSL-GET-ERROR)
; :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER)
; (CL+SSL::RET :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-ERROR
; (CL+SSL::SSL CL+SSL::RET)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-GET-ERROR
; (LET ((#:G0 CL+SSL::SSL))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_error" # :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBSSL)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_set_connect_state" SSL-SET-CONNECT-STATE) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_set_accept_state" SSL-SET-ACCEPT-STATE) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_connect" SSL-CONNECT) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_connect" SSL-CONNECT)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_connect" CL+SSL::SSL-CONNECT)
; :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CONNECT
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CONNECT
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_connect" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_accept" SSL-ACCEPT) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_accept" SSL-ACCEPT)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_accept" CL+SSL::SSL-ACCEPT)
; :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-ACCEPT
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-ACCEPT
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_accept" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_write" SSL-WRITE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_write" SSL-WRITE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_write" CL+SSL::SSL-WRITE)
; :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER)
; (CL+SSL::BUF :POINTER)
; (CL+SSL::NUM :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-WRITE
; (CL+SSL::SSL CL+SSL::BUF CL+SSL::NUM)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-WRITE
; (LET ((#:G0 CL+SSL::SSL))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_read" SSL-READ) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_read" SSL-READ)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_read" CL+SSL::SSL-READ)
; :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER)
; (CL+SSL::BUF :POINTER)
; (CL+SSL::NUM :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-READ
; (CL+SSL::SSL CL+SSL::BUF CL+SSL::NUM)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-READ
; (LET ((#:G0 CL+SSL::SSL))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_shutdown" SSL-SHUTDOWN) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_shutdown" SSL-SHUTDOWN)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_shutdown" CL+SSL::SSL-SHUTDOWN)
; :INT
; (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
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-SHUTDOWN
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-SHUTDOWN
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_shutdown" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_free" SSL-FREE) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_free" SSL-CTX-FREE) ...)
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "1.0")
; ("SSL_set_alpn_protos" CL+SSL::SSL-SET-ALPN-PROTOS)
; :INT
; (CL+SSL::SSL :POINTER)
; (CL+SSL::TEXT :STRING)
; (CL+SSL::LEN :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-SET-ALPN-PROTOS
; (CL+SSL::SSL CL+SSL::TEXT CL+SSL::LEN)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-SET-ALPN-PROTOS
; (LET ((#:G0 CL+SSL::SSL))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM3)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::TEXT #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.0") ...)
; processing (DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("BIO_ctrl" CL+SSL::BIO-SET-FD)
; :LONG
; (CL+SSL::BIO :POINTER)
; (CL+SSL::CMD :INT)
; (CL+SSL::LARG :LONG)
; (CL+SSL::PARG :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-FD
; (CL+SSL::BIO CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-SET-FD
; (LET ((#:G0 CL+SSL::BIO))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" BIO-NEW-SOCKET) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" BIO-NEW-SOCKET)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("BIO_new_socket" CL+SSL::BIO-NEW-SOCKET)
; :POINTER
; (CL+SSL::FD :INT)
; (CL+SSL::CLOSE-FLAG :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW-SOCKET
; (CL+SSL::FD CL+SSL::CLOSE-FLAG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-NEW-SOCKET
; (LET ((#:G0 CL+SSL::FD))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new_socket" # :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("BIO_new" CL+SSL::BIO-NEW)
; :POINTER
; (METHOD :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW
; (METHOD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-NEW
; (LET ((#:G0 METHOD))
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new" (:POINTER #:G0 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("BIO_free" BIO-FREE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("BIO_free" BIO-FREE)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("BIO_free" CL+SSL::BIO-FREE)
; :POINTER
; (METHOD :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-FREE
; (METHOD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-FREE
; (LET ((#:G0 METHOD))
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_free" (:POINTER #:G0 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:SINCE "1.1.0")
; ("BIO_get_new_index" CL+SSL::BIO-NEW-INDEX)
; :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::BIO-NEW-INDEX
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-NEW-INDEX
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_get_new_index" (:INT) :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")
; ("BIO_meth_new" CL+SSL::BIO-METH-NEW)
; :POINTER
; (TYPE :INT)
; (CL+SSL::NAME :STRING))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-METH-NEW
; (TYPE CL+SSL::NAME)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-METH-NEW
; (LET ((#:G0 TYPE))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::NAME #)
; (UNWIND-PROTECT # #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:SINCE "1.1.0")
; ("BIO_meth_set_puts" CL+SSL::BIO-SET-PUTS)
; :INT
; (CL+SSL::METH :POINTER)
; (CL+SSL::PUTS :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-PUTS
; (CL+SSL::METH CL+SSL::PUTS)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-SET-PUTS
; (LET ((#:G0 CL+SSL::METH))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_meth_set_puts" # :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")
; ("BIO_meth_set_write" CL+SSL::BIO-SET-WRITE)
; :INT
; (CL+SSL::METH :POINTER)
; (CL+SSL::PUTS :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-WRITE
; (CL+SSL::METH CL+SSL::PUTS)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-SET-WRITE
; (LET ((#:G0 CL+SSL::METH))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_meth_set_write" # :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")
; ("BIO_meth_set_read" CL+SSL::BIO-SET-READ)
; :INT
; (CL+SSL::METH :POINTER)
; (READ :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-READ
; (CL+SSL::METH READ)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-SET-READ
; (LET ((#:G0 CL+SSL::METH))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_meth_set_read" # :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")
; ("BIO_meth_set_gets" CL+SSL::BIO-SET-GETS)
; :INT
; (CL+SSL::METH :POINTER)
; (READ :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-GETS
; (CL+SSL::METH READ)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-SET-GETS
; (LET ((#:G0 CL+SSL::METH))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_meth_set_gets" # :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")
; ("BIO_meth_set_create" CL+SSL::BIO-SET-CREATE)
; :INT
; (CL+SSL::METH :POINTER)
; (READ :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-CREATE
; (CL+SSL::METH READ)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-SET-CREATE
; (LET ((#:G0 CL+SSL::METH))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_meth_set_create" # :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")
; ("BIO_meth_set_destroy" CL+SSL::BIO-SET-DESTROY)
; :INT
; (CL+SSL::METH :POINTER)
; (READ :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-DESTROY
; (CL+SSL::METH READ)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-SET-DESTROY
; (LET ((#:G0 CL+SSL::METH))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_meth_set_destroy" # :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")
; ("BIO_meth_set_ctrl" CL+SSL::BIO-SET-CTRL)
; :INT
; (CL+SSL::METH :POINTER)
; (READ :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-CTRL
; (CL+SSL::METH READ)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-SET-CTRL
; (LET ((#:G0 CL+SSL::METH))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_meth_set_ctrl" # :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")
; ("BIO_set_init" CL+SSL::BIO-SET-INIT)
; :INT
; (CL+SSL::METH :POINTER)
; (CL+SSL::VALUE :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::BIO-SET-INIT
; (CL+SSL::METH CL+SSL::VALUE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-SET-INIT
; (LET ((#:G0 CL+SSL::METH))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_set_init" # :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")
; ("BIO_set_flags" CL+SSL::BIO-SET-FLAGS)
; :INT
; (CL+SSL::METH :POINTER)
; (CL+SSL::VALUE :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::BIO-SET-FLAGS
; (CL+SSL::METH CL+SSL::VALUE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-SET-FLAGS
; (LET ((#:G0 CL+SSL::METH))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_set_flags" # :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")
; ("BIO_clear_flags" CL+SSL::BIO-CLEAR-FLAGS)
; :INT
; (CL+SSL::METH :POINTER)
; (CL+SSL::VALUE :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::BIO-CLEAR-FLAGS
; (CL+SSL::METH CL+SSL::VALUE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-CLEAR-FLAGS
; (LET ((#:G0 CL+SSL::METH))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_clear_flags" # :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("ERR_get_error" CL+SSL::ERR-GET-ERROR)
; :UNSIGNED-LONG)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ERR-GET-ERROR
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::ERR-GET-ERROR
; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_get_error" (:UNSIGNED-LONG) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBCRYPTO)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("ERR_error_string" ERR-ERROR-STRING) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ERR_error_string" ERR-ERROR-STRING)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("ERR_error_string" CL+SSL::ERR-ERROR-STRING)
; :STRING
; (CL+SSL::E :UNSIGNED-LONG)
; (CL+SSL::BUF :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET
; --> LET
; ==>
; (CFFI:TRANSLATE-FROM-FOREIGN
; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_error_string"
; (:UNSIGNED-LONG #:G0 :POINTER #:G1 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO)
; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "3.0.0") ...)
; processing (DEFCONSTANT +ERR_LIB_NONE+ ...)
; processing (DEFCONSTANT +ERR_R_FATAL+ ...)
; processing (DEFCONSTANT +ERR_R_INTERNAL_ERROR+ ...)
; processing (DEFINE-CRYPTO-FUNCTION ("ERR_add_error_data" ERR-ADD-ERROR-DATA) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ERR_add_error_data" ERR-ADD-ERROR-DATA)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("ERR_add_error_data" CL+SSL::ERR-ADD-ERROR-DATA)
; :VOID
; (CL+SSL::NUM :INT)
; &REST)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN DEFMACRO PROGN EVAL-WHEN
; --> SB-C::%DEFMACRO SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-INT:NAMED-DS-BIND SB-INT:BINDING* LET* BLOCK SB-INT:QUASIQUOTE
; --> SB-IMPL::|List*| SB-IMPL::|Append|
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a LIST, not a NULL.
; processing (DEFINE-CRYPTO-FUNCTION ("ERR_print_errors" ERR-PRINT-ERRORS) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_set_cipher_list" SSL-SET-CIPHER-LIST) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_set_cipher_list" SSL-SET-CIPHER-LIST)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_set_cipher_list" CL+SSL::SSL-SET-CIPHER-LIST)
; :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER)
; (CL+SSL::STR :STRING))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-SET-CIPHER-LIST
; (CL+SSL::SSL CL+SSL::STR)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-SET-CIPHER-LIST
; (LET ((#:G0 CL+SSL::SSL))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::STR #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_use_RSAPrivateKey_file" SSL-USE-RSA-PRIVATEKEY-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_use_RSAPrivateKey_file" SSL-USE-RSA-PRIVATEKEY-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_use_RSAPrivateKey_file" CL+SSL::SSL-USE-RSA-PRIVATEKEY-FILE)
; :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER)
; (CL+SSL::STR :STRING)
; (TYPE :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-USE-RSA-PRIVATEKEY-FILE
; (CL+SSL::SSL CL+SSL::STR TYPE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-USE-RSA-PRIVATEKEY-FILE
; (LET ((#:G0 CL+SSL::SSL))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM3)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::STR #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_use_RSAPrivateKey_file" SSL-CTX-USE-RSA-PRIVATEKEY-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_CTX_use_RSAPrivateKey_file"
; SSL-CTX-USE-RSA-PRIVATEKEY-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_use_RSAPrivateKey_file" CL+SSL::SSL-CTX-USE-RSA-PRIVATEKEY-FILE)
; :INT
; (CL+SSL::CTX CL+SSL::SSL-CTX)
; (TYPE :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-USE-RSA-PRIVATEKEY-FILE
; (CL+SSL::CTX TYPE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-USE-RSA-PRIVATEKEY-FILE
; (LET ((#:G0 CL+SSL::CTX))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_use_RSAPrivateKey_file" #
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_use_PrivateKey_file" SSL-USE-PRIVATEKEY-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_use_PrivateKey_file" SSL-USE-PRIVATEKEY-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_use_PrivateKey_file" CL+SSL::SSL-USE-PRIVATEKEY-FILE)
; :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER)
; (CL+SSL::STR :STRING)
; (TYPE :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-USE-PRIVATEKEY-FILE
; (CL+SSL::SSL CL+SSL::STR TYPE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-USE-PRIVATEKEY-FILE
; (LET ((#:G0 CL+SSL::SSL))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM3)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::STR #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_use_PrivateKey_file" SSL-CTX-USE-PRIVATEKEY-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_CTX_use_PrivateKey_file" SSL-CTX-USE-PRIVATEKEY-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_use_PrivateKey_file" CL+SSL::SSL-CTX-USE-PRIVATEKEY-FILE)
; :INT
; (CL+SSL::CTX CL+SSL::SSL-CTX)
; (TYPE :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-USE-PRIVATEKEY-FILE
; (CL+SSL::CTX TYPE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-USE-PRIVATEKEY-FILE
; (LET ((#:G0 CL+SSL::CTX))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_use_PrivateKey_file" #
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_use_certificate_file" SSL-USE-CERTIFICATE-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_use_certificate_file" SSL-USE-CERTIFICATE-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_use_certificate_file" CL+SSL::SSL-USE-CERTIFICATE-FILE)
; :INT
; (CL+SSL::SSL CL+SSL::SSL-POINTER)
; (CL+SSL::STR :STRING)
; (TYPE :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-USE-CERTIFICATE-FILE
; (CL+SSL::SSL CL+SSL::STR TYPE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-USE-CERTIFICATE-FILE
; (LET ((#:G0 CL+SSL::SSL))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM3)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::STR #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" SSL-CTX-CTRL) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" SSL-CTX-CTRL)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_ctrl" CL+SSL::SSL-CTX-CTRL)
; :LONG
; (CL+SSL::CTX CL+SSL::SSL-CTX)
; (CL+SSL::CMD :INT)
; (CL+SSL::LARG :UNSIGNED-LONG)
; (CL+SSL::PARG :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-CTRL
; (CL+SSL::CTX CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-CTRL
; (LET ((#:G0 CL+SSL::CTX))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_ctrl" SSL-CTRL) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_ctrl" SSL-CTRL)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_ctrl" CL+SSL::SSL-CTRL)
; :LONG
; (CL+SSL::SSL :POINTER)
; (CL+SSL::CMD :INT)
; (CL+SSL::LARG :LONG)
; (CL+SSL::PARG :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTRL
; (CL+SSL::SSL CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTRL
; (LET ((#:G0 CL+SSL::SSL))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN SSL-CTX-SET-OPTIONS ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN SSL-CTX-SET-OPTIONS
; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-OPTIONS+ CL+SSL::OPTIONS
; (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFUN SSL-CTX-SET-MIN-PROTO-VERSION ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN SSL-CTX-SET-MIN-PROTO-VERSION
; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-SET-MIN-PROTO-VERSION+
; CL+SSL::VERSION (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFUN SSL-CTX-SET-MAX-PROTO-VERSION ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN SSL-CTX-SET-MAX-PROTO-VERSION
; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-SET-MAX-PROTO-VERSION+
; CL+SSL::VERSION (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_cipher_list" SSL-CTX-SET-CIPHER-LIST%) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_CTX_set_cipher_list" SSL-CTX-SET-CIPHER-LIST%)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_set_cipher_list" CL+SSL::SSL-CTX-SET-CIPHER-LIST%)
; :INT
; (CL+SSL::CTX :POINTER)
; (CL+SSL::CIPHERS :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-CIPHER-LIST%
; (CL+SSL::CTX CL+SSL::CIPHERS)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-SET-CIPHER-LIST%
; (LET ((#:G0 CL+SSL::CTX))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_cipher_list" # :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN SSL-CTX-SET-CIPHER-LIST ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_use_certificate_chain_file" SSL-CTX-USE-CERTIFICATE-CHAIN-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_CTX_use_certificate_chain_file"
; SSL-CTX-USE-CERTIFICATE-CHAIN-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_use_certificate_chain_file"
; CL+SSL::SSL-CTX-USE-CERTIFICATE-CHAIN-FILE)
; :INT
; (CL+SSL::CTX CL+SSL::SSL-CTX)
; (CL+SSL::STR :STRING))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-USE-CERTIFICATE-CHAIN-FILE
; (CL+SSL::CTX CL+SSL::STR)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-USE-CERTIFICATE-CHAIN-FILE
; (LET ((#:G0 CL+SSL::CTX))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::STR #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_load_verify_locations" SSL-CTX-LOAD-VERIFY-LOCATIONS) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_CTX_load_verify_locations"
; SSL-CTX-LOAD-VERIFY-LOCATIONS)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_load_verify_locations" CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS)
; :INT
; (CL+SSL::CTX CL+SSL::SSL-CTX)
; (CL+SSL::CAFILE :STRING)
; (CL+SSL::CAPATH :STRING))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS
; (CL+SSL::CTX CL+SSL::CAFILE CL+SSL::CAPATH)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS
; (LET ((#:G0 CL+SSL::CTX))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM4)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::CAFILE #)
; (UNWIND-PROTECT # #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_client_CA_list" SSL-CTX-SET-CLIENT-CA-LIST) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" SSL-LOAD-CLIENT-CA-FILE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" SSL-LOAD-CLIENT-CA-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_load_client_CA_file" CL+SSL::SSL-LOAD-CLIENT-CA-FILE)
; CL+SSL::SSL-POINTER
; (CL+SSL::FILE :STRING))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-LOAD-CLIENT-CA-FILE
; (CL+SSL::FILE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-LOAD-CLIENT-CA-FILE
; (MULTIPLE-VALUE-BIND (#:G0 #:PARAM1)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::FILE
; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; (UNWIND-PROTECT (PROGN #)
; (CFFI:FREE-TRANSLATED-OBJECT #:G0 # #:PARAM1)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_default_passwd_cb" SSL-CTX-SET-DEFAULT-PASSWD-CB) ...)
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("CRYPTO_num_locks" CL+SSL::CRYPTO-NUM-LOCKS)
; :INT)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::CRYPTO-NUM-LOCKS
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::CRYPTO-NUM-LOCKS
; (CFFI-SYS:%FOREIGN-FUNCALL "CRYPTO_num_locks" (:INT) :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO)))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...)
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...)
; processing (DEFINE-CRYPTO-FUNCTION ("RAND_seed" RAND-SEED) ...)
; processing (DEFINE-CRYPTO-FUNCTION ("RAND_bytes" RAND-BYTES) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("RAND_bytes" RAND-BYTES)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("RAND_bytes" CL+SSL::RAND-BYTES)
; :INT
; (CL+SSL::BUF :POINTER)
; (CL+SSL::NUM :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::RAND-BYTES
; (CL+SSL::BUF CL+SSL::NUM)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::RAND-BYTES
; (LET ((#:G0 CL+SSL::BUF))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "RAND_bytes" # :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_verify_depth" SSL-CTX-SET-VERIFY-DEPTH) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_verify" SSL-CTX-SET-VERIFY) ...)
; processing (DEFINE-SSL-FUNCTION ("SSL_get_verify_result" SSL-GET-VERIFY-RESULT) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION ("SSL_get_verify_result" SSL-GET-VERIFY-RESULT)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_get_verify_result" CL+SSL::SSL-GET-VERIFY-RESULT)
; :LONG
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-VERIFY-RESULT
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-GET-VERIFY-RESULT
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_verify_result"
; (:POINTER #:G0 :LONG) :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "3.0.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "3.0.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:VANISHED "3.0.0")
; ("SSL_get_peer_certificate" CL+SSL::SSL-GET-PEER-CERTIFICATE)
; :POINTER
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-PEER-CERTIFICATE
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-GET-PEER-CERTIFICATE
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_peer_certificate"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "3.0.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "3.0.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "3.0.0")
; ("SSL_get1_peer_certificate" CL+SSL::SSL-GET1-PEER-CERTIFICATE)
; :POINTER
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> 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-GET1-PEER-CERTIFICATE
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-GET1-PEER-CERTIFICATE
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get1_peer_certificate"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_free" X509-FREE) ...)
; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" X509-NAME-ONELINE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" X509-NAME-ONELINE)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_NAME_oneline" CL+SSL::X509-NAME-ONELINE)
; :POINTER
; (CL+SSL::X509-NAME :POINTER)
; (CL+SSL::BUF :POINTER)
; (CL+SSL::SIZE :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ONELINE
; (CL+SSL::X509-NAME CL+SSL::BUF CL+SSL::SIZE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-NAME-ONELINE
; (LET ((#:G0 CL+SSL::X509-NAME))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_index_by_NID" X509-NAME-GET-INDEX-BY-NID) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_index_by_NID"
; X509-NAME-GET-INDEX-BY-NID)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_NAME_get_index_by_NID" CL+SSL::X509-NAME-GET-INDEX-BY-NID)
; :INT
; (CL+SSL::NAME :POINTER)
; (CL+SSL::NID :INT)
; (CL+SSL::LASTPOS :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-GET-INDEX-BY-NID
; (CL+SSL::NAME CL+SSL::NID CL+SSL::LASTPOS)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-NAME-GET-INDEX-BY-NID
; (LET ((#:G0 CL+SSL::NAME))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" X509-NAME-GET-ENTRY) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" X509-NAME-GET-ENTRY)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_NAME_get_entry" CL+SSL::X509-NAME-GET-ENTRY)
; :POINTER
; (CL+SSL::NAME :POINTER)
; (LOG :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-GET-ENTRY
; (CL+SSL::NAME LOG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-NAME-GET-ENTRY
; (LET ((#:G0 CL+SSL::NAME))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_get_entry" # :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_NAME_ENTRY_get_data" CL+SSL::X509-NAME-ENTRY-GET-DATA)
; :POINTER
; (CL+SSL::NAME-ENTRY :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ENTRY-GET-DATA
; (CL+SSL::NAME-ENTRY)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-NAME-ENTRY-GET-DATA
; (LET ((#:G0 CL+SSL::NAME-ENTRY))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_ENTRY_get_data"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_get_issuer_name" CL+SSL::X509-GET-ISSUER-NAME)
; :POINTER
; (CL+SSL::X509 :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-ISSUER-NAME
; (CL+SSL::X509)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET-ISSUER-NAME
; (LET ((#:G0 CL+SSL::X509))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_issuer_name"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_get_subject_name" CL+SSL::X509-GET-SUBJECT-NAME)
; :POINTER
; (CL+SSL::X509 :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-SUBJECT-NAME
; (CL+SSL::X509)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET-SUBJECT-NAME
; (LET ((#:G0 CL+SSL::X509))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_subject_name"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:SINCE "1.1.0")
; ("X509_get0_notBefore" CL+SSL::X509-GET0-NOT-BEFORE)
; :POINTER
; (CL+SSL::X509 :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET0-NOT-BEFORE
; (CL+SSL::X509)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET0-NOT-BEFORE
; (LET ((#:G0 CL+SSL::X509))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get0_notBefore"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:SINCE "1.1.0")
; ("X509_get0_notAfter" CL+SSL::X509-GET0-NOT-AFTER)
; :POINTER
; (CL+SSL::X509 :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET0-NOT-AFTER
; (CL+SSL::X509)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET0-NOT-AFTER
; (LET ((#:G0 CL+SSL::X509))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get0_notAfter"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_get_ext_d2i" CL+SSL::X509-GET-EXT-D2I)
; :POINTER
; (CL+SSL::CERT :POINTER)
; (CL+SSL::NID :INT)
; (CL+SSL::CRIT :POINTER)
; (CL+SSL::IDX :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-EXT-D2I
; (CL+SSL::CERT CL+SSL::NID CL+SSL::CRIT CL+SSL::IDX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET-EXT-D2I
; (LET ((#:G0 CL+SSL::CERT))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_STORE_CTX_get_error" X509-STORE-CTX-GET-ERROR) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_STORE_CTX_get_error" X509-STORE-CTX-GET-ERROR)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_STORE_CTX_get_error" CL+SSL::X509-STORE-CTX-GET-ERROR)
; :INT
; (CL+SSL::CTX :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-STORE-CTX-GET-ERROR
; (CL+SSL::CTX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-STORE-CTX-GET-ERROR
; (LET ((#:G0 CL+SSL::CTX))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_STORE_CTX_get_error"
; (:POINTER #:G0 :INT) :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("d2i_X509" D2I-X509) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("d2i_X509" D2I-X509)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("d2i_X509" CL+SSL::D2I-X509)
; :POINTER
; (CL+SSL::*PX :POINTER)
; (CL+SSL::IN :POINTER)
; (CL+SSL::LEN :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::D2I-X509
; (CL+SSL::*PX CL+SSL::IN CL+SSL::LEN)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::D2I-X509
; (LET ((#:G0 CL+SSL::*PX))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("X509_digest" X509-DIGEST) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("X509_digest" X509-DIGEST)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_digest" CL+SSL::X509-DIGEST)
; :INT
; (CL+SSL::CERT :POINTER)
; (TYPE :POINTER)
; (CL+SSL::BUF :POINTER)
; (CL+SSL::*LEN :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-DIGEST
; (CL+SSL::CERT TYPE CL+SSL::BUF CL+SSL::*LEN)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-DIGEST
; (LET ((#:G0 CL+SSL::CERT))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("PEM_write_bio_X509" PEM-WRITE-X509) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("PEM_write_bio_X509" PEM-WRITE-X509)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("PEM_write_bio_X509" CL+SSL::PEM-WRITE-X509)
; :INT
; (CL+SSL::BIO :POINTER)
; (CL+SSL::X509 :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::PEM-WRITE-X509
; (CL+SSL::BIO CL+SSL::X509)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::PEM-WRITE-X509
; (LET ((#:G0 CL+SSL::BIO))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "PEM_write_bio_X509" # :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("PEM_read_bio_X509" PEM-READ-X509) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("PEM_read_bio_X509" PEM-READ-X509)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("PEM_read_bio_X509" CL+SSL::PEM-READ-X509)
; :POINTER
; (CL+SSL::BIO :POINTER)
; (CL+SSL::X509 :INT)
; (CL+SSL::CALLBACK :INT)
; (CL+SSL::PASSPHRASE :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::PEM-READ-X509
; (CL+SSL::BIO CL+SSL::X509 CL+SSL::CALLBACK CL+SSL::PASSPHRASE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::PEM-READ-X509
; (LET ((#:G0 CL+SSL::BIO))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("EVP_get_digestbyname" EVP-GET-DIGEST-BY-NAME) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-CRYPTO-FUNCTION ("EVP_get_digestbyname" EVP-GET-DIGEST-BY-NAME)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("EVP_get_digestbyname" CL+SSL::EVP-GET-DIGEST-BY-NAME)
; :POINTER
; (CL+SSL::NAME :STRING))
; --> 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::EVP-GET-DIGEST-BY-NAME
; (CL+SSL::NAME)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::EVP-GET-DIGEST-BY-NAME
; (MULTIPLE-VALUE-BIND (#:G0 #:PARAM1)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::NAME
; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; (UNWIND-PROTECT (PROGN #)
; (CFFI:FREE-TRANSLATED-OBJECT #:G0 # #:PARAM1)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "3.0.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "3.0.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:VANISHED "3.0.0")
; ("EVP_MD_size" CL+SSL::EVP-MD-SIZE)
; :INT
; (CL+SSL::EVP :POINTER))
; --> 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::EVP-MD-SIZE
; (CL+SSL::EVP)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::EVP-MD-SIZE
; (LET ((#:G0 CL+SSL::EVP))
; (CFFI-SYS:%FOREIGN-FUNCALL "EVP_MD_size" (:POINTER #:G0 :INT)
; :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 "3.0.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "3.0.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:SINCE "3.0.0")
; ("EVP_MD_get_size" CL+SSL::EVP-MD-GET-SIZE)
; :INT
; (CL+SSL::EVP :POINTER))
; --> 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::EVP-MD-GET-SIZE
; (CL+SSL::EVP)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::EVP-MD-GET-SIZE
; (LET ((#:G0 CL+SSL::EVP))
; (CFFI-SYS:%FOREIGN-FUNCALL "EVP_MD_get_size" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFCONSTANT +GEN-OTHERNAME+ ...)
; processing (DEFCONSTANT +GEN-EMAIL+ ...)
; processing (DEFCONSTANT +GEN-DNS+ ...)
; processing (DEFCONSTANT +GEN-X400+ ...)
; processing (DEFCONSTANT +GEN-DIRNAME+ ...)
; processing (DEFCONSTANT +GEN-EDIPARTY+ ...)
; processing (DEFCONSTANT +GEN-URI+ ...)
; processing (DEFCONSTANT +GEN-IPADD+ ...)
; processing (DEFCONSTANT +GEN-RID+ ...)
; processing (DEFCONSTANT +V-ASN1-OCTET-STRING+ ...)
; processing (DEFCONSTANT +V-ASN1-UTF8STRING+ ...)
; processing (DEFCONSTANT +V-ASN1-PRINTABLESTRING+ ...)
; processing (DEFCONSTANT +V-ASN1-TELETEXSTRING+ ...)
; processing (DEFCONSTANT +V-ASN1-IASTRING+ ...)
; processing (DEFCONSTANT +V-ASN1-UNIVERSALSTRING+ ...)
; processing (DEFCONSTANT +V-ASN1-BMPSTRING+ ...)
; processing (DEFCONSTANT +NID-SUBJECT-ALT-NAME+ ...)
; processing (DEFCONSTANT +NID-COMMONNAME+ ...)
; processing (CFFI:DEFCSTRUCT GENERAL-NAME ...)
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("sk_value" CL+SSL::SK-VALUE)
; :POINTER
; (CL+SSL::STACK :POINTER)
; (CL+SSL::INDEX :INT))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-VALUE
; (CL+SSL::STACK CL+SSL::INDEX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SK-VALUE
; (LET ((#:G0 CL+SSL::STACK))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "sk_value" # :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("sk_num" CL+SSL::SK-NUM)
; :INT
; (CL+SSL::STACK :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-NUM
; (CL+SSL::STACK)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SK-NUM
; (LET ((#:G0 CL+SSL::STACK))
; (CFFI-SYS:%FOREIGN-FUNCALL "sk_num" (:POINTER #:G0 :INT) :CONVENTION
; :CDECL :LIBRARY
; 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_sk_value" CL+SSL::OPENSSL-SK-VALUE)
; :POINTER
; (CL+SSL::STACK :POINTER)
; (CL+SSL::INDEX :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::OPENSSL-SK-VALUE
; (CL+SSL::STACK CL+SSL::INDEX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::OPENSSL-SK-VALUE
; (LET ((#:G0 CL+SSL::STACK))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "OPENSSL_sk_value" # :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:SINCE "1.1.0")
; ("OPENSSL_sk_num" CL+SSL::OPENSSL-SK-NUM)
; :INT
; (CL+SSL::STACK :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-SK-NUM
; (CL+SSL::STACK)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::OPENSSL-SK-NUM
; (LET ((#:G0 CL+SSL::STACK))
; (CFFI-SYS:%FOREIGN-FUNCALL "OPENSSL_sk_num" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SK-GENERAL-NAME-VALUE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN SK-GENERAL-NAME-VALUE
; (DEFUN CL+SSL::SK-GENERAL-NAME-VALUE (CL+SSL::NAMES CL+SSL::INDEX)
; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1))
; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)
; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-VALUE
; (CL+SSL::NAMES CL+SSL::INDEX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SK-GENERAL-NAME-VALUE
; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1))
; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)
; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX))))
;
; note: Type assertion too complex to check:
; (VALUES SB-SYS:SYSTEM-AREA-POINTER &REST T).
; It allows an unknown number of values, consider using
; (VALUES SB-SYS:SYSTEM-AREA-POINTER &OPTIONAL).
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN SK-GENERAL-NAME-NUM ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN SK-GENERAL-NAME-NUM
; (DEFUN CL+SSL::SK-GENERAL-NAME-NUM (CL+SSL::NAMES)
; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1))
; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES)
; (CL+SSL::SK-NUM CL+SSL::NAMES)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-NUM
; (CL+SSL::NAMES)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SK-GENERAL-NAME-NUM
; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1))
; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES)
; (CL+SSL::SK-NUM CL+SSL::NAMES))))
;
; note: Type assertion too complex to check:
; (VALUES FIXNUM &REST T).
; It allows an unknown number of values, consider using
; (VALUES FIXNUM &OPTIONAL).
; processing (DEFINE-CRYPTO-FUNCTION ("GENERAL_NAMES_free" GENERAL-NAMES-FREE) ...)
; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" ASN1-STRING-DATA) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" ASN1-STRING-DATA)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("ASN1_STRING_data" CL+SSL::ASN1-STRING-DATA)
; :POINTER
; (CL+SSL::ASN1-STRING :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-STRING-DATA
; (CL+SSL::ASN1-STRING)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::ASN1-STRING-DATA
; (LET ((#:G0 CL+SSL::ASN1-STRING))
; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_STRING_data"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_length" ASN1-STRING-LENGTH) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_length" ASN1-STRING-LENGTH)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("ASN1_STRING_length" CL+SSL::ASN1-STRING-LENGTH)
; :INT
; (CL+SSL::ASN1-STRING :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-STRING-LENGTH
; (CL+SSL::ASN1-STRING)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::ASN1-STRING-LENGTH
; (LET ((#:G0 CL+SSL::ASN1-STRING))
; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_STRING_length" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_type" ASN1-STRING-TYPE) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_type" ASN1-STRING-TYPE)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("ASN1_STRING_type" CL+SSL::ASN1-STRING-TYPE)
; :INT
; (CL+SSL::ASN1-STRING :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-STRING-TYPE
; (CL+SSL::ASN1-STRING)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::ASN1-STRING-TYPE
; (LET ((#:G0 CL+SSL::ASN1-STRING))
; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_STRING_type" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (CFFI:DEFCSTRUCT ASN1_STRING_ST ...)
; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_TIME_check" ASN1-TIME-CHECK) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ASN1_TIME_check" ASN1-TIME-CHECK)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("ASN1_TIME_check" CL+SSL::ASN1-TIME-CHECK)
; :INT
; (CL+SSL::ASN1-STRING :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-TIME-CHECK
; (CL+SSL::ASN1-STRING)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::ASN1-TIME-CHECK
; (LET ((#:G0 CL+SSL::ASN1-STRING))
; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_TIME_check" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("ASN1_UTCTIME_check" ASN1-UTCTIME-CHECK) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("ASN1_UTCTIME_check" ASN1-UTCTIME-CHECK)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("ASN1_UTCTIME_check" CL+SSL::ASN1-UTCTIME-CHECK)
; :INT
; (CL+SSL::ASN1-STRING :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-UTCTIME-CHECK
; (CL+SSL::ASN1-STRING)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::ASN1-UTCTIME-CHECK
; (LET ((#:G0 CL+SSL::ASN1-STRING))
; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_UTCTIME_check" (:POINTER #:G0 :INT)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION ("SSL_CTX_set_default_verify_paths" SSL-CTX-SET-DEFAULT-VERIFY-PATHS) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in:
; DEFINE-SSL-FUNCTION ("SSL_CTX_set_default_verify_paths"
; SSL-CTX-SET-DEFAULT-VERIFY-PATHS)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_set_default_verify_paths"
; CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-PATHS)
; :INT
; (CL+SSL::CTX :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-PATHS
; (CL+SSL::CTX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-PATHS
; (LET ((#:G0 CL+SSL::CTX))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_default_verify_paths"
; (:POINTER #:G0 :INT) :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "1.1.0")
; ("SSL_CTX_set_default_verify_dir" CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-DIR)
; :INT
; (CL+SSL::CTX :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-DIR
; (CL+SSL::CTX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-DIR
; (LET ((#:G0 CL+SSL::CTX))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_default_verify_dir"
; (:POINTER #:G0 :INT) :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "1.1.0")
; ("SSL_CTX_set_default_verify_file" CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-FILE)
; :INT
; (CL+SSL::CTX :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-FILE
; (CL+SSL::CTX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-SET-DEFAULT-VERIFY-FILE
; (LET ((#:G0 CL+SSL::CTX))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_default_verify_file"
; (:POINTER #:G0 :INT) :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" RSA-GENERATE-KEY) ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" RSA-GENERATE-KEY)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("RSA_generate_key" CL+SSL::RSA-GENERATE-KEY)
; :POINTER
; (CL+SSL::NUM :INT)
; (CL+SSL::E :UNSIGNED-LONG)
; (CL+SSL::CALLBACK :POINTER)
; (CL+SSL::OPT :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::RSA-GENERATE-KEY
; (CL+SSL::NUM CL+SSL::E CL+SSL::CALLBACK CL+SSL::OPT)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::RSA-GENERATE-KEY
; (LET ((#:G0 CL+SSL::NUM))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (DEFINE-CRYPTO-FUNCTION ("RSA_free" RSA-FREE) ...)
; processing (DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("SSL_CTX_set_tmp_rsa_callback" CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK)
; :POINTER
; (CL+SSL::CTX :POINTER)
; (CL+SSL::CALLBACK :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK
; (CL+SSL::CTX CL+SSL::CALLBACK)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK
; (LET ((#:G0 CL+SSL::CTX))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_tmp_rsa_callback" #
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; processing (CFFI:DEFCALLBACK TMP-RSA-CALLBACK ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCALLBACK TMP-RSA-CALLBACK
; (= CL+SSL::KEY-LENGTH 512)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (= CL+SSL::KEY-LENGTH 1024)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (CL+SSL::RSA-GENERATE-KEY LENGTH CL+SSL::+RSA_F4+ (CFFI-SYS:NULL-POINTER)
; (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFVAR *SOCKET*)
; processing (DECLAIM (INLINE ENSURE-SSL-FUNCALL))
; processing (DEFUN ENSURE-SSL-FUNCALL ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN ENSURE-SSL-FUNCALL
; (APPLY CL+SSL::FUNC CL+SSL::ARGS)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; FUNC is not known to be a function
; (PLUSP CL+SSL::NBYTES)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; processing (DECLAIM (INLINE NONBLOCKING-SSL-FUNCALL))
; processing (DEFUN NONBLOCKING-SSL-FUNCALL ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN NONBLOCKING-SSL-FUNCALL
; (APPLY CL+SSL::FUNC CL+SSL::ARGS)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; FUNC is not known to be a function
; (PLUSP CL+SSL::NBYTES)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; processing (DEFUN SECONDS-UNTIL-DEADLINE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN SECONDS-UNTIL-DEADLINE
; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
;
; 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).
; (/ (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
; INTERNAL-TIME-UNITS-PER-SECOND)
;
; 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
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 61), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 61), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
; processing (DEFUN OUTPUT-WAIT ...)
; processing (DEFUN INPUT-WAIT ...)
; processing (DEFVAR *PEM-PASSWORD* ...)
; processing (CFFI:DEFCALLBACK PEM-PASSWORD-CALLBACK ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCALLBACK PEM-PASSWORD-CALLBACK
; (COERCE CL+SSL::*PEM-PASSWORD* 'BASE-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST (AND (NOT BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST (AND (NOT BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
; * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST (AND (NOT BASE-STRING) VECTOR)
; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
; CHARACTER
; (*)).
; (1- CL+SSL::SIZE)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER -2147483649 2147483646) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; etc.
; (CFFI:DEFCALLBACK CL+SSL::PEM-PASSWORD-CALLBACK
; :INT
; ((CL+SSL::BUF :POINTER) (CL+SSL::SIZE :INT) (CL+SSL::RWFLAG :INT)
; (CL+SSL::UNUSED :POINTER))
; (DECLARE (IGNORE CL+SSL::RWFLAG CL+SSL::UNUSED))
; (LET* ((CL+SSL::PASSWORD-STR (COERCE CL+SSL::*PEM-PASSWORD* 'BASE-STRING))
; (CL+SSL::TMP (CFFI:FOREIGN-STRING-ALLOC CL+SSL::PASSWORD-STR)))
; (CFFI:FOREIGN-FUNCALL "strncpy" :POINTER CL+SSL::BUF :POINTER CL+SSL::TMP
; :INT CL+SSL::SIZE)
; (CFFI:FOREIGN-STRING-FREE CL+SSL::TMP)
; (SETF (CFFI:MEM-REF CL+SSL::BUF :CHAR #) 0)
; (CFFI:FOREIGN-FUNCALL "strlen" :POINTER CL+SSL::BUF :INT)))
; --> CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA
; --> SB-ALIEN-INTERNALS:ALIEN-CALLBACK SB-ALIEN-INTERNALS:%SAP-ALIEN
; --> SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA
; ==>
; #'(LAMBDA (CL+SSL::BUF CL+SSL::SIZE CL+SSL::RWFLAG CL+SSL::UNUSED)
; (LET ((CL+SSL::BUF CL+SSL::BUF)
; (CL+SSL::SIZE CL+SSL::SIZE)
; (CL+SSL::RWFLAG CL+SSL::RWFLAG)
; (CL+SSL::UNUSED CL+SSL::UNUSED))
; (DECLARE (IGNORE CL+SSL::RWFLAG CL+SSL::UNUSED))
; (BLOCK CL+SSL::PEM-PASSWORD-CALLBACK
; (LET* (# #)
; (CFFI:FOREIGN-FUNCALL "strncpy" :POINTER CL+SSL::BUF :POINTER
; CL+SSL::TMP :INT CL+SSL::SIZE)
; (CFFI:FOREIGN-STRING-FREE CL+SSL::TMP)
; (SETF #)
; (CFFI:FOREIGN-FUNCALL "strlen" :POINTER CL+SSL::BUF :INT)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFMACRO WITH-PEM-PASSWORD ...)
; processing (DEFUN INIT-PRNG ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN INIT-PRNG
; (LENGTH CL+SSL::SEED-BYTE-SEQUENCE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (ELT CL+SSL::SEED-BYTE-SEQUENCE CL+SSL::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; (CL+SSL::RAND-SEED CL+SSL::PTR LENGTH)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFUN SSL-CTX-SET-SESSION-CACHE-MODE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN SSL-CTX-SET-SESSION-CACHE-MODE
; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL_CTRL_SET_SESS_CACHE_MODE+
; CL+SSL::MODE (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFUN SSL-SET-TLSEXT-HOST-NAME ...)
; processing (DEFVAR *LOCKS*)
; processing (DEFCONSTANT +CRYPTO-LOCK+ ...)
; processing (DEFCONSTANT +CRYPTO-UNLOCK+ ...)
; processing (DEFCONSTANT +CRYPTO-READ+ ...)
; processing (DEFCONSTANT +CRYPTO-WRITE+ ...)
; processing (CFFI:DEFCALLBACK LOCKING-CALLBACK ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCALLBACK LOCKING-CALLBACK
; (ELT CL+SSL::*LOCKS* CL+SSL::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; (LOGTEST CL+SSL::MODE CL+SSL::+CRYPTO-LOCK+)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; etc.
; (LOGTEST CL+SSL::MODE CL+SSL::+CRYPTO-UNLOCK+)
;
; 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 fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; processing (DEFVAR *THREADS* ...)
; processing (DEFVAR *THREAD-COUNTER* ...)
; processing (DEFPARAMETER *GLOBAL-LOCK* ...)
; processing (CFFI:DEFCALLBACK THREADID-CALLBACK ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: CFFI:DEFCALLBACK THREADID-CALLBACK
; (INCF CL+SSL::*THREAD-COUNTER*)
; --> THE
; ==>
; (+ 1 CL+SSL::*THREAD-COUNTER*)
;
; 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 &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
; processing (DEFVAR *SSL-CHECK-VERIFY-P* ...)
; processing (DEFUN DEFAULT-SSL-METHOD ...)
; processing (DEFUN INITIALIZE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/ffi.lisp
; in: DEFUN INITIALIZE
; (FUNCALL (OR METHOD (CL+SSL::DEFAULT-SSL-METHOD)))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; processing (DEFUN ENSURE-INITIALIZED ...)
; processing (DEFUN USE-CERTIFICATE-CHAIN-FILE ...)
; processing (DEFUN RELOAD ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/ffi-tmpZ7L7FP0S.fasl
; compilation finished in 0:00:01.840
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/ffi-buffer-all.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DECLAIM (INLINE MAKE-BUFFER ...))
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/ffi-buffer-all-tmpGCPRU2E.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/ffi-buffer.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFUN MAKE-BUFFER ...)
; processing (DEFUN BUFFER-LENGTH ...)
; processing (DEFUN BUFFER-ELT ...)
; processing (DEFUN SET-BUFFER-ELT ...)
; processing (DEFSETF BUFFER-ELT ...)
; processing (DEFUN S/B-REPLACE ...)
; processing (DEFUN B/S-REPLACE ...)
; processing (DEFMACRO WITH-POINTER-TO-VECTOR-DATA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/ffi-buffer-tmpTYRYY2X9.fasl
; compilation finished in 0:00:00.056
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/streams.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL) ...)
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFVAR *DEFAULT-CIPHER-LIST* ...)
; processing (DEFPARAMETER *DEFAULT-BUFFER-SIZE* ...)
; processing (DEFCLASS SSL-STREAM ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD PRINT-OBJECT (SSL-STREAM T)
; (FORMAT STREAM "for ~A" (CL+SSL::SSL-STREAM-SOCKET CL+SSL::OBJECT))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.
; processing (DEFCLASS SSL-SERVER-STREAM ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFMETHOD CLOSE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD CLOSE (SSL-STREAM)
; (FUNCALL (CL+SSL::SSL-CLOSE-CALLBACK STREAM))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; processing (DEFMETHOD OPEN-STREAM-P ...)
; processing (DEFMETHOD STREAM-LISTEN ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-LISTEN (SSL-STREAM)
; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0)
; --> BLOCK ELT
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CL+SSL::NONBLOCKING-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-READ
; CL+SSL::HANDLE CL+SSL::PTR 1)
; --> BLOCK LOOP BLOCK TAGBODY PROGN
; ==>
; (LET ((CL+SSL::NBYTES
; (LET (#)
; (APPLY CL+SSL::FUNC CL+SSL::ARGS))))
; (WHEN (PLUSP CL+SSL::NBYTES) (RETURN CL+SSL::NBYTES))
; (LET ((ERROR (CL+SSL::SSL-GET-ERROR CL+SSL::HANDLE CL+SSL::NBYTES)))
; (CASE ERROR
; ((2 3) (RETURN CL+SSL::NBYTES))
; (T
; (CL+SSL::SSL-SIGNAL-ERROR CL+SSL::HANDLE CL+SSL::FUNC ERROR
; CL+SSL::NBYTES)))))
;
; note: doing signed word to integer coercion (cost 20) to NBYTES
; processing (DEFMETHOD STREAM-READ-BYTE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-READ-BYTE (SSL-STREAM)
; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0)
; --> BLOCK ELT
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-READ
; CL+SSL::HANDLE CL+SSL::PTR 1)
; --> BLOCK LOOP BLOCK TAGBODY PROGN
; ==>
; (LET ((CL+SSL::NBYTES
; (LET (#)
; (APPLY CL+SSL::FUNC CL+SSL::ARGS))))
; (WHEN (PLUSP CL+SSL::NBYTES) (RETURN CL+SSL::NBYTES))
; (LET ((ERROR (CL+SSL::SSL-GET-ERROR CL+SSL::HANDLE CL+SSL::NBYTES)))
; (CASE ERROR
; (2 (CL+SSL::INPUT-WAIT STREAM # #))
; (3 (CL+SSL::OUTPUT-WAIT STREAM # #))
; (T
; (CL+SSL::SSL-SIGNAL-ERROR CL+SSL::HANDLE CL+SSL::FUNC ERROR
; CL+SSL::NBYTES)))))
;
; note: doing signed word to integer coercion (cost 20) to NBYTES
; processing (DEFMETHOD STREAM-READ-SEQUENCE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-READ-SEQUENCE (SSL-STREAM T T T)
; (- CL+SSL::END CL+SSL::START)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, 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 REAL, 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 REAL, 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 REAL, 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 REAL, 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 REAL, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a (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 (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (PLUSP LENGTH)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL * 536870908)
; (SINGLE-FLOAT * 5.368709e8)
; (DOUBLE-FLOAT * 5.36870908d8)), not a FLOAT.
; (< CL+SSL::START CL+SSL::END)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second 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 DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (SETF (ELT CL+SSL::SEQ CL+SSL::START) (CL+SSL::SSL-STREAM-PEEKED-BYTE STREAM))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; (+ CL+SSL::START CL+SSL::READ-BYTES)
;
; note: unable to
; 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).
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CL+SSL::S/B-REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START :END1
; (+ CL+SSL::START CL+SSL::READ-BYTES))
; --> BLOCK
; ==>
; (REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START1 :END1 CL+SSL::END1
; :START2 CL+SSL::START2 :END2 CL+SSL::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-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 (OR SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (SIMPLE-ARRAY CHARACTER (*)).
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING
; &REST T).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)).
; The second argument is a (OR SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 29) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a SIMPLE-BASE-STRING.
; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES
; (SIMPLE-ARRAY CHARACTER
; (*))
; &REST T).
; (< CL+SSL::START CL+SSL::END)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
; (- CL+SSL::END CL+SSL::START)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
; (PLUSP LENGTH)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a (OR (RATIONAL * 536870908)
; (SINGLE-FLOAT * 5.368709e8)
; (DOUBLE-FLOAT * 5.36870908d8)), not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (OR (RATIONAL * 536870908)
; (SINGLE-FLOAT * 5.368709e8)
; (DOUBLE-FLOAT * 5.36870908d8)), not a FIXNUM.
; etc.
; (+ CL+SSL::START CL+SSL::READ-BYTES)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a (INTEGER 1 2147483647), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-READ
; CL+SSL::HANDLE CL+SSL::PTR LENGTH)
; --> BLOCK LOOP BLOCK TAGBODY PROGN
; ==>
; (LET ((CL+SSL::NBYTES
; (LET (#)
; (APPLY CL+SSL::FUNC CL+SSL::ARGS))))
; (WHEN (PLUSP CL+SSL::NBYTES) (RETURN CL+SSL::NBYTES))
; (LET ((ERROR (CL+SSL::SSL-GET-ERROR CL+SSL::HANDLE CL+SSL::NBYTES)))
; (CASE ERROR
; (2 (CL+SSL::INPUT-WAIT STREAM # #))
; (3 (CL+SSL::OUTPUT-WAIT STREAM # #))
; (T
; (CL+SSL::SSL-SIGNAL-ERROR CL+SSL::HANDLE CL+SSL::FUNC ERROR
; CL+SSL::NBYTES)))))
;
; note: doing signed word to integer coercion (cost 20) to NBYTES
; (+ CL+SSL::START CL+SSL::READ-BYTES)
;
; note: doing signed word to integer coercion (cost 20)
; (INCF CL+SSL::START CL+SSL::READ-BYTES)
;
; note: doing unsigned word to integer coercion (cost 20) to START
; processing (DEFMETHOD STREAM-WRITE-BYTE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-WRITE-BYTE (SSL-STREAM T)
; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; ==>
; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM4))
;
; 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.
; (SETF (CL+SSL::BUFFER-ELT CL+SSL::BUF
; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; CL+SSL::B)
; --> BLOCK SETF
; ==>
; (SB-KERNEL:%SETELT CL+SSL::BUF CL+SSL::INDEX CL+SSL::VAL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; ==>
; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM4))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
; processing (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-WRITE-SEQUENCE (SSL-STREAM T T T)
; (- CL+SSL::END CL+SSL::START)
;
; note: unable to
; 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).
; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
;
; 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).
; (>
; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (- CL+SSL::END CL+SSL::START)
;
; note: unable to
; 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).
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START1
; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM) :START2
; CL+SSL::START :END2 CL+SSL::END)
; ==>
; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1
; :START2 CL+SSL::START2 :END2 CL+SSL::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-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).
; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)
; (- CL+SSL::END CL+SSL::START))
; ==>
; (+ (- CL+SSL::END CL+SSL::START)
; (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM25))
;
; 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).
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START2 CL+SSL::START)
; --> BLOCK
; ==>
; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1
; :START2 CL+SSL::START2 :END2 CL+SSL::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-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).
; (- CL+SSL::END CL+SSL::START)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; 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
; &OPTIONAL).
; etc.
; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
; (>
; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; etc.
; (- CL+SSL::END CL+SSL::START)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; etc.
; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)
; (- CL+SSL::END CL+SSL::START))
; ==>
; (+ (- CL+SSL::END CL+SSL::START)
; (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM25))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (INTEGER -536870908 536870908), not a (UNSIGNED-BYTE
; 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
; (INCF CL+SSL::START (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: doing signed word to integer coercion (cost 20) to START
; processing (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; processing (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFMETHOD STREAM-FORCE-OUTPUT (SSL-STREAM)
; (PLUSP CL+SSL::FILL-PTR)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-WRITE
; CL+SSL::HANDLE CL+SSL::PTR CL+SSL::FILL-PTR)
; --> BLOCK LOOP BLOCK TAGBODY PROGN
; ==>
; (LET ((CL+SSL::NBYTES
; (LET (#)
; (APPLY CL+SSL::FUNC CL+SSL::ARGS))))
; (WHEN (PLUSP CL+SSL::NBYTES) (RETURN CL+SSL::NBYTES))
; (LET ((ERROR (CL+SSL::SSL-GET-ERROR CL+SSL::HANDLE CL+SSL::NBYTES)))
; (CASE ERROR
; (2 (CL+SSL::INPUT-WAIT STREAM # #))
; (3 (CL+SSL::OUTPUT-WAIT STREAM # #))
; (T
; (CL+SSL::SSL-SIGNAL-ERROR CL+SSL::HANDLE CL+SSL::FUNC ERROR
; CL+SSL::NBYTES)))))
;
; note: doing signed word to integer coercion (cost 20) to NBYTES
; processing (DEFUN INSTALL-NONBLOCK-FLAG ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN INSTALL-NONBLOCK-FLAG
; (DEFUN CL+SSL::INSTALL-NONBLOCK-FLAG (CL+SSL::FD)
; (SB-POSIX:FCNTL CL+SSL::FD SB-POSIX:F-SETFL
; (LOGIOR (SB-POSIX:FCNTL CL+SSL::FD SB-POSIX:F-GETFL)
; SB-POSIX:O-NONBLOCK)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::INSTALL-NONBLOCK-FLAG
; (CL+SSL::FD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::INSTALL-NONBLOCK-FLAG
; (SB-POSIX:FCNTL CL+SSL::FD SB-POSIX:F-SETFL
; (LOGIOR (SB-POSIX:FCNTL CL+SSL::FD SB-POSIX:F-GETFL)
; SB-POSIX:O-NONBLOCK))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; processing (DEFVAR *DEFAULT-UNWRAP-STREAM-P* ...)
; processing (DEFUN INSTALL-HANDLE-AND-BIO ...)
; processing (DEFUN INSTALL-KEY-AND-CERT ...)
; processing (DEFUN X509-CERTIFICATE-NAMES ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN X509-CERTIFICATE-NAMES
; (CFFI-SYS:NULL-POINTER-P CL+SSL::X509-CERTIFICATE)
; --> BLOCK ZEROP
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (CFFI-SYS:WITH-FOREIGN-POINTER (CL+SSL::BUF 1024)
; (LET ((CL+SSL::ISSUER-NAME
; (CL+SSL::X509-GET-ISSUER-NAME CL+SSL::X509-CERTIFICATE))
; (CL+SSL::SUBJECT-NAME
; (CL+SSL::X509-GET-SUBJECT-NAME CL+SSL::X509-CERTIFICATE)))
; (VALUES
; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::ISSUER-NAME)
; (CL+SSL::X509-NAME-ONELINE CL+SSL::ISSUER-NAME CL+SSL::BUF 1024)
; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF))
; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::SUBJECT-NAME)
; (CL+SSL::X509-NAME-ONELINE CL+SSL::SUBJECT-NAME CL+SSL::BUF 1024)
; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF)))))
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET SB-C::RESTORING-NSP LET
; --> SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
; ==>
; 1
;
; note: doing SAP to pointer coercion (cost 20), for:
; the first result of ALLOC-NUMBER-STACK-SPACE
; (CFFI-SYS:NULL-POINTER-P CL+SSL::ISSUER-NAME)
; --> ZEROP
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (CFFI-SYS:NULL-POINTER-P CL+SSL::SUBJECT-NAME)
; --> ZEROP
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; processing (DEFMETHOD SSL-STREAM-HANDLE ...)
; processing (DEFUN SSL-STREAM-X509-CERTIFICATE ...)
; processing (DEFUN SSL-LOAD-GLOBAL-VERIFY-LOCATIONS ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN SSL-LOAD-GLOBAL-VERIFY-LOCATIONS
; (CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS CL+SSL::*SSL-GLOBAL-CONTEXT*
; CL+SSL::CAFILE (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFUN SSL-SET-GLOBAL-DEFAULT-VERIFY-PATHS ...)
; processing (DEFUN SSL-CHECK-VERIFY-P ...)
; processing (DEFUN (SETF SSL-CHECK-VERIFY-P) ...)
; processing (DEFUN SSL-VERIFY-INIT ...)
; processing (DEFUN MAYBE-VERIFY-CLIENT-STREAM ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN MAYBE-VERIFY-CLIENT-STREAM
; (FUNCALL
; (IF (CL+SSL::OPENSSL-IS-AT-LEAST 3 0 0)
; 'CL+SSL::SSL-GET1-PEER-CERTIFICATE
; 'CL+SSL::SSL-GET-PEER-CERTIFICATE)
; CL+SSL::HANDLE)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; (CFFI-SYS:NULL-POINTER-P CL+SSL::SRV-CERT)
; --> ZEROP
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; --> BLOCK ZEROP
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; processing (DEFUN HANDLE-EXTERNAL-FORMAT ...)
; processing (DEFMACRO WITH-NEW-SSL ...)
; processing (DEFVAR *MAKE-SSL-CLIENT-STREAM-VERIFY-DEFAULT* ...)
; processing (DEFUN MAKE-ALPN-PROTO-STRING ...)
; processing (DEFUN MAKE-SSL-CLIENT-STREAM ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN MAKE-SSL-CLIENT-STREAM
; (1- CL+SSL::LEN)
;
; 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).
; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST))
;
; 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.
; (1- CL+SSL::LEN)
;
; 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 &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
; (CL+SSL::WITH-NEW-SSL
; (CL+SSL::HANDLE)
; (IF CL+SSL::HOSTNAME
; (CFFI:WITH-FOREIGN-STRING (CL+SSL::CHOSTNAME CL+SSL::HOSTNAME)
; (CL+SSL::SSL-SET-TLSEXT-HOST-NAME CL+SSL::HANDLE CL+SSL::CHOSTNAME)))
; (IF CL+SSL::ALPN-PROTOCOLS
; (CFFI:WITH-FOREIGN-STRING ((STRING CL+SSL::LEN)
; (CL+SSL::MAKE-ALPN-PROTO-STRING
; CL+SSL::ALPN-PROTOCOLS))
; (CL+SSL::SSL-SET-ALPN-PROTOS CL+SSL::HANDLE STRING (1- CL+SSL::LEN))))
; (SETF CL+SSL::SOCKET
; (CL+SSL::INSTALL-HANDLE-AND-BIO STREAM CL+SSL::HANDLE
; CL+SSL::SOCKET CL+SSL::UNWRAP-STREAM-P))
; (CL+SSL::SSL-SET-CONNECT-STATE CL+SSL::HANDLE)
; (WHEN
; (ZEROP
; (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST))
; (ERROR 'CL+SSL:SSL-ERROR-INITIALIZE :REASON "Can't set SSL cipher list"))
; (CL+SSL:WITH-PEM-PASSWORD
; (CL+SSL::PASSWORD)
; (CL+SSL::INSTALL-KEY-AND-CERT CL+SSL::HANDLE CL+SSL::KEY
; CL+SSL::CERTIFICATE))
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-CONNECT
; CL+SSL::HANDLE)
; (CL+SSL::MAYBE-VERIFY-CLIENT-STREAM STREAM CL+SSL::VERIFY CL+SSL::HOSTNAME)
; (CL+SSL::HANDLE-EXTERNAL-FORMAT STREAM CL+SSL::EXTERNAL-FORMAT))
; --> WHEN IF CFFI-SYS:NULL-POINTER-P BLOCK ZEROP
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-CONNECT
; CL+SSL::HANDLE)
; --> BLOCK LOOP BLOCK TAGBODY PROGN
; ==>
; (LET ((CL+SSL::NBYTES
; (LET (#)
; (APPLY CL+SSL::FUNC CL+SSL::ARGS))))
; (WHEN (PLUSP CL+SSL::NBYTES) (RETURN CL+SSL::NBYTES))
; (LET ((ERROR (CL+SSL::SSL-GET-ERROR CL+SSL::HANDLE CL+SSL::NBYTES)))
; (CASE ERROR
; (2 (CL+SSL::INPUT-WAIT STREAM # #))
; (3 (CL+SSL::OUTPUT-WAIT STREAM # #))
; (T
; (CL+SSL::SSL-SIGNAL-ERROR CL+SSL::HANDLE CL+SSL::FUNC ERROR
; CL+SSL::NBYTES)))))
;
; note: doing signed word to integer coercion (cost 20) to NBYTES
; processing (DEFUN MAKE-SSL-SERVER-STREAM ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN MAKE-SSL-SERVER-STREAM
; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (CL+SSL::WITH-NEW-SSL
; (CL+SSL::HANDLE)
; (SETF CL+SSL::SOCKET
; (CL+SSL::INSTALL-HANDLE-AND-BIO STREAM CL+SSL::HANDLE
; CL+SSL::SOCKET CL+SSL::UNWRAP-STREAM-P))
; (CL+SSL::SSL-SET-ACCEPT-STATE CL+SSL::HANDLE)
; (WHEN
; (ZEROP
; (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST))
; (ERROR 'CL+SSL:SSL-ERROR-INITIALIZE :REASON "Can't set SSL cipher list"))
; (CL+SSL:WITH-PEM-PASSWORD
; (CL+SSL::PASSWORD)
; (CL+SSL::INSTALL-KEY-AND-CERT CL+SSL::HANDLE CL+SSL::KEY
; CL+SSL::CERTIFICATE))
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-ACCEPT
; CL+SSL::HANDLE)
; (CL+SSL::HANDLE-EXTERNAL-FORMAT STREAM CL+SSL::EXTERNAL-FORMAT))
; --> WHEN IF CFFI-SYS:NULL-POINTER-P BLOCK ZEROP
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; (CL+SSL::ENSURE-SSL-FUNCALL STREAM CL+SSL::HANDLE #'CL+SSL::SSL-ACCEPT
; CL+SSL::HANDLE)
; --> BLOCK LOOP BLOCK TAGBODY PROGN
; ==>
; (LET ((CL+SSL::NBYTES
; (LET (#)
; (APPLY CL+SSL::FUNC CL+SSL::ARGS))))
; (WHEN (PLUSP CL+SSL::NBYTES) (RETURN CL+SSL::NBYTES))
; (LET ((ERROR (CL+SSL::SSL-GET-ERROR CL+SSL::HANDLE CL+SSL::NBYTES)))
; (CASE ERROR
; (2 (CL+SSL::INPUT-WAIT STREAM # #))
; (3 (CL+SSL::OUTPUT-WAIT STREAM # #))
; (T
; (CL+SSL::SSL-SIGNAL-ERROR CL+SSL::HANDLE CL+SSL::FUNC ERROR
; CL+SSL::NBYTES)))))
;
; note: doing signed word to integer coercion (cost 20) to NBYTES
; processing (DEFUN GET-SELECTED-ALPN-PROTOCOL ...)
; file: /usr/share/common-lisp/source/cl+ssl/src/streams.lisp
; in: DEFUN GET-SELECTED-ALPN-PROTOCOL
; (CL+SSL::SSL-GET0-ALPN-SELECTED (CL+SSL::SSL-STREAM-HANDLE CL+SSL::SSL)
; CL+SSL::PTR CL+SSL::LEN)
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing SAP to pointer coercion (cost 20)
; (CFFI:FOREIGN-STRING-TO-LISP (CFFI:MEM-REF CL+SSL::PTR :POINTER) :COUNT
; (CFFI:MEM-REF CL+SSL::LEN :INT))
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFGENERIC STREAM-FD ...)
; processing (DEFMETHOD STREAM-FD ...)
; processing (DEFMETHOD STREAM-FD ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/streams-tmpOMAPSGL7.fasl
; compilation finished in 0:00:00.708
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/bio.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (IN-PACKAGE CL+SSL)
; processing (DEFCONSTANT +BIO_TYPE_SOURCE_SINK+ ...)
; processing (DEFCONSTANT +BIO_TYPE_DESCRIPTOR+ ...)
; processing (DEFCONSTANT +BIO-TYPE-SOCKET+ ...)
; processing (DEFCONSTANT +BIO_FLAGS_READ+ ...)
; processing (DEFCONSTANT +BIO_FLAGS_WRITE+ ...)
; processing (DEFCONSTANT +BIO_FLAGS_IO_SPECIAL+ ...)
; processing (DEFCONSTANT +BIO_FLAGS_RWS+ ...)
; processing (DEFCONSTANT +BIO_FLAGS_SHOULD_RETRY+ ...)
; processing (DEFCONSTANT +BIO_CTRL_FLUSH+ ...)
; processing (CFFI:DEFCSTRUCT BIO-METHOD ...)
; processing (CFFI:DEFCSTRUCT BIO ...)
; processing (DEFUN LISP-BIO-TYPE ...)
; processing (DEFUN MAKE-BIO-LISP-METHOD-SLOTS ...)
; processing (DEFUN MAKE-BIO-LISP-METHOD-OPAQUE ...)
; processing (DEFUN MAKE-BIO-LISP-METHOD ...)
; processing (DEFUN BIO-NEW-LISP ...)
; processing (DEFUN CLEAR-RETRY-FLAGS-SLOTS ...)
; processing (DEFUN CLEAR-RETRY-FLAGS-OPAQUE ...)
; processing (DEFUN CLEAR-RETRY-FLAGS ...)
; processing (DEFUN SET-RETRY-READ-OPAQUE ...)
; processing (DEFUN SET-RETRY-READ-SLOTS ...)
; processing (DEFUN SET-RETRY-READ ...)
; processing (DEFPARAMETER *FILE-NAME* ...)
; processing (DEFUN PUT-TO-OPENSSL-ERROR-QUEUE ...)
; processing (CFFI:DEFCALLBACK LISP-WRITE ...)
; processing (CFFI:DEFCALLBACK LISP-READ ...)
; processing (CFFI:DEFCALLBACK LISP-GETS ...)
; processing (CFFI:DEFCALLBACK LISP-PUTS ...)
; processing (CFFI:DEFCALLBACK LISP-CTRL ...)
; processing (CFFI:DEFCALLBACK LISP-CREATE-SLOTS ...)
; processing (CFFI:DEFCALLBACK LISP-CREATE-OPAQUE ...)
; processing (CFFI:DEFCALLBACK LISP-DESTROY-SLOTS ...)
; processing (CFFI:DEFCALLBACK LISP-DESTROY-OPAQUE ...)
; processing (DEFMACRO WITH-BIO-OUTPUT-TO-STRING ...)
; processing (DEFMACRO WITH-BIO-INPUT-FROM-STRING ...)
; processing (DEFUN ERR-PRINT-ERRORS-TO-STRING ...)
; processing (SETF *BIO-LISP-METHOD* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/bio-tmpB76HJA0J.fasl
; compilation finished in 0:00:00.476
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/x509.lisp" (written 18 MAY 2022 11:37:23 PM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFGENERIC DECODE-ASN1-STRING ...)
; processing (DEFUN COPY-BYTES-TO-LISP-VECTOR ...)
; processing (DEFUN ASN1-STRING-BYTES-VECTOR ...)
; processing (DEFUN ASN1-IASTRING-CHAR-P ...)
; processing (DEFUN ASN1-IASTRING-P ...)
; processing (DEFMETHOD DECODE-ASN1-STRING ...)
; processing (DEFUN ASN1-PRINTABLE-CHAR-P ...)
; processing (DEFUN ASN1-PRINTABLE-STRING-P ...)
; processing (DEFMETHOD DECODE-ASN1-STRING ...)
; processing (DEFMETHOD DECODE-ASN1-STRING ...)
; processing (DEFMETHOD DECODE-ASN1-STRING ...)
; processing (DEFUN ASN1-TELETEX-CHAR-P ...)
; processing (DEFUN ASN1-TELETEX-STRING-P ...)
; processing (DEFMETHOD DECODE-ASN1-STRING ...)
; processing (DEFMETHOD DECODE-ASN1-STRING ...)
; processing (DEFUN TRY-GET-ASN1-STRING-DATA ...)
; processing (DEFUN DECODE-ASN1-TIME ...)
; processing (DEFUN SLURP-STREAM ...)
; processing (DEFGENERIC DECODE-CERTIFICATE ...)
; processing (DEFMETHOD DECODE-CERTIFICATE ...)
; processing (DEFUN CERT-FORMAT-FROM-PATH ...)
; processing (DEFUN DECODE-CERTIFICATE-FROM-FILE ...)
; processing (DEFUN CERTIFICATE-ALT-NAMES ...)
; processing (DEFUN CERTIFICATE-DNS-ALT-NAMES ...)
; processing (DEFUN CERTIFICATE-SUBJECT-COMMON-NAMES ...)
; processing (DEFUN CERTIFICATE-NOT-AFTER-TIME ...)
; processing (DEFUN CERTIFICATE-NOT-BEFORE-TIME ...)
; processing (DEFUN CERTIFICATE-FINGERPRINT ...)
; processing (DEFUN X509-CERT-FROM-PEM ...)
; processing (DEFUN CERTIFICATE-PEM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/x509-tmp7QTM681J.fasl
; compilation finished in 0:00:00.304
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/random.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFUN RANDOM-BYTES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/random-tmpLGH8FB0W.fasl
; compilation finished in 0:00:00.040
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/context.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFINE-CONDITION VERIFY-LOCATION-NOT-FOUND-ERROR ...)
; processing (DEFUN VALIDATE-VERIFY-LOCATION ...)
; processing (DEFUN ADD-VERIFY-LOCATIONS ...)
; processing (DEFUN SSL-CTX-SET-VERIFY-LOCATION ...)
; processing (ALEXANDRIA:DEFINE-CONSTANT +DEFAULT-CIPHER-LIST+ ...)
; processing (CFFI:DEFCALLBACK VERIFY-PEER-CALLBACK ...)
; processing (DEFUN MAKE-CONTEXT ...)
; processing (DEFUN CALL-WITH-GLOBAL-CONTEXT ...)
; processing (DEFMACRO WITH-GLOBAL-CONTEXT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/context-tmpDGQGGEC4.fasl
; compilation finished in 0:00:00.128
; compiling file "/usr/share/common-lisp/source/cl+ssl/src/verify-hostname.lisp" (written 28 MAR 2022 12:23:33 AM):
; processing (IN-PACKAGE :CL+SSL)
; processing (DEFINE-CONDITION HOSTNAME-VERIFICATION-ERROR ...)
; processing (DEFINE-CONDITION UNABLE-TO-MATCH-ALTNAMES ...)
; processing (DEFINE-CONDITION UNABLE-TO-DECODE-COMMON-NAME ...)
; processing (DEFINE-CONDITION UNABLE-TO-MATCH-COMMON-NAME ...)
; processing (DEFUN CASE-INSENSITIVE-MATCH ...)
; processing (DEFUN REMOVE-TRAILING-DOT ...)
; processing (DEFUN CHECK-WILDCARD-IN-LEFTMOST-LABEL ...)
; processing (DEFUN CHECK-SINGLE-WILDCARD ...)
; processing (DEFUN CHECK-TWO-LABELS-AFTER-WILDCARD ...)
; processing (DEFUN VALIDATE-AND-PARSE-WILDCARD-IDENTIFIER ...)
; processing (DEFUN WILDCARD-NOT-IN-A-LABEL ...)
; processing (DEFUN TRY-MATCH-WILDCARD ...)
; processing (DEFUN MAYBE-TRY-MATCH-WILDCARD ...)
; processing (DEFUN TRY-MATCH-HOSTNAME ...)
; processing (DEFUN TRY-MATCH-HOSTNAMES ...)
; processing (DEFUN MAYBE-CHECK-SUBJECT-CN ...)
; processing (DEFUN VERIFY-HOSTNAME ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl+ssl/src/verify-hostname-tmp6X5OKNPG.fasl
; compilation finished in 0:00:00.084
; file: /usr/share/common-lisp/source/bordeaux-threads/src/default-implementations.lisp
; in: BORDEAUX-THREADS::DEFDFUN BORDEAUX-THREADS:SEMAPHORE-P
; 'BORDEAUX-THREADS:SEMAPHORE
;
; caught STYLE-WARNING:
; undefined type: BORDEAUX-THREADS:SEMAPHORE
;
; compilation unit finished
; Undefined type:
; BORDEAUX-THREADS:SEMAPHORE
; caught 7 STYLE-WARNING conditions
; printed 1892 notes
;; loading system "mssql"
; compiling file "/usr/share/common-lisp/source/iterate/package.lisp" (written 04 NOV 2021 03:10:48 PM):
; processing (DEFPACKAGE #:ITERATE ...)
; processing (IN-PACKAGE #:ITERATE)
; processing (DEFMACRO DEFCONST ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/iterate/package-tmpABKNHGCI.fasl
; compilation finished in 0:00:00.024
; compiling file "/usr/share/common-lisp/source/iterate/iterate.lisp" (written 04 NOV 2021 03:10:56 PM):
; processing (IN-PACKAGE #:ITERATE)
; processing (DECLAIM (DECLARATION DECLARE-VARIABLES))
; processing (DEFCONST VERSION ...)
; processing (DEFCONST STANDARD-TYPE-SYMBOLS ...)
; processing (DEFVAR *ALWAYS-DECLARE-VARIABLES* ...)
; processing (DEFVAR *RESULT-VAR*)
; processing (DEFVAR *TYPE-ALIST*)
; processing (DEFVAR *DECLARE-VARIABLES*)
; processing (DEFVAR *CLAUSE*)
; processing (DEFVAR *TOP-LEVEL?*)
; processing (DEFVAR *BINDING-CONTEXT?*)
; processing (DEFVAR *BINDINGS*)
; processing (DEFVAR *INTERNAL-VARIABLES*)
; processing (DEFVAR *DECLARATIONS*)
; processing (DEFVAR *ACCUM-VAR-ALIST*)
; processing (DEFVAR *SHARED-BINDINGS-ALIST*)
; processing (DEFVAR *BLOCK-NAME*)
; processing (DEFVAR *LOOP-NAME*)
; processing (DEFVAR *CLAUSE-INFO-INDEX* ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL) ...)
; processing (DEFPARAMETER *SPECIAL-FORM-ALIST* ...)
; processing (DEFVAR *SPECIAL-CLAUSE-ALIST* ...)
; processing (DEFVAR *TEMPS*)
; processing (DEFVAR *TEMPS-IN-USE*)
; processing (DEFVAR *ENV*)
; processing (DEFVAR *DRIVER-INFO-ALIST*)
; processing (DEFVAR *PREVIOUS-VARS-ALIST*)
; processing (DEFVAR *LOOP-TOP*)
; processing (DEFVAR *LOOP-STEP*)
; processing (DEFVAR *LOOP-END*)
; processing (DEFVAR *LOOP-STEP-USED?*)
; processing (DEFVAR *LOOP-END-USED?*)
; processing (DEFVAR *LOOP-BODY-WRAPPERS*)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ...)
; processing (DEFMACRO ITERATE ...)
; processing (DEFMACRO ITER ...)
; processing (DEFMACRO DEFMACRO-CLAUSE ...)
; processing (DEFMACRO DEFMACRO-DRIVER ...)
; processing (DEFUN PROCESS-TOP-LEVEL-DECLS ...)
; processing (DEFUN DEFAULT-DRIVER-CODE ...)
; processing (DEFUN WRAP-FORM ...)
; processing (DEFUN ADD-LOOP-BODY-WRAPPER ...)
; processing (DEFUN WALK ...)
; processing (DEFUN WALK-LIST ...)
; processing (DEFUN WALK-ARGLIST ...)
; processing (DEFUN WALK-FSPEC ...)
; processing (DEFUN WALK-LIST-NCONCING ...)
; processing (DEFUN RETURN-CODE-MODIFYING-BODY ...)
; processing (DEFUN ADD-INTERNAL-VAR ...)
; processing (DEFUN ADD-INTERNAL-VARS ...)
; processing (DEFUN LAMBDA-LIST-VARS ...)
; processing (DEFUN SPECIAL-FORM? ...)
; processing (DEFUN WALK-SPECIAL-FORM ...)
; processing (DEFUN WALK-CDR ...)
; processing (DEFUN WALK-CDDR ...)
; processing (DEFUN WALK-PROGN ...)
; processing (DEFUN WALK-SETQ ...)
; processing (DEFUN WALK-FUNCTION ...)
; processing (DEFUN WALK-DECLARE ...)
; processing (DEFUN WALK-LET ...)
; processing (DEFUN WALK-LET-BINDINGS ...)
; processing (DEFUN WALK-LET*-BINDINGS ...)
; processing (DEFUN WALK-LET-BINDING ...)
; processing (DEFUN WALK-MULTIPLE-VALUE-BIND ...)
; processing (DEFUN WALK-FLET ...)
; processing (DEFUN WALK-CDR-WITH-DECLARATIONS ...)
; processing (DEFUN WALK-CDDR-WITH-DECLARATIONS ...)
; processing (DEFUN WALK-TAGBODY ...)
; processing (DEFUN WALK-MACROLET ...)
; processing (DEFVAR *INITIAL*)
; processing (DEFVAR *DECLS*)
; processing (DEFVAR *STEP*)
; processing (DEFVAR *FINAL*)
; processing (DEFVAR *FINALP*)
; processing (DEFUN PROCESS-CLAUSE ...)
; processing (DEFUN APPLY-CLAUSE-FUNCTION ...)
; processing (DEFUN PREPROCESS-CLAUSE ...)
; processing (DEFUN SYMBOL-SYNONYM ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFUN ARG-CHECK ...)
; processing (DEFUN WALK-EXPR ...)
; processing (DEFUN DISPLAY-ITERATE-CLAUSES ...)
; processing (DEFUN DISP-STD-CLAUSES ...)
; processing (DEFUN DISPLAY-CLAUSE ...)
; processing (DEFCONST FILL-COL ...)
; processing (DEFUN DISPLAY-KWS ...)
; processing (DEFUN CLAUSE-MATCHES? ...)
; processing (DEFUN GET-CLAUSE-INFO ...)
; processing (DEFUN IS-ITERATE-CLAUSE? ...)
; processing (DEFUN STARTS-CLAUSE? ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFUN DISPLAY-INDEX ...)
; processing (DEFUN REMOVE-CLAUSE ...)
; processing (DEFMACRO DEFCLAUSE ...)
; processing (DEFMACRO DEFCLAUSE-DRIVER ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFMACRO DEFSYNONYM ...)
; processing (DEFMACRO DEFCLAUSE-SEQUENCE ...)
; processing (DEFUN IF-1ST-TIME ...)
; processing (DEFMACRO WITH-TEMPORARY ...)
; processing (DEFUN GET-FREE-TEMP ...)
; processing (DEFUN VAR-TYPE ...)
; processing (DEFUN VAR-DECLARATION ...)
; processing (DEFUN EXPR-TYPE-ONLY ...)
; processing (DEFUN EXPRESSION-TYPE ...)
; processing (DEFUN QUOTED? ...)
; processing (DEFUN FUNCTION-QUOTED? ...)
; processing (DEFUN LAMBDA-EXPRESSION? ...)
; processing (DEFUN THE-EXPRESSION? ...)
; processing (DEFUN SELF-EVALUATING? ...)
; processing (DEFUN CONSTANT? ...)
; processing (DEFUN DUPLICABLE? ...)
; processing (DEFUN VAR-SPEC? ...)
; processing (DEFUN EXTRACT-VAR ...)
; processing (DEFUN MAKE-BINDING ...)
; processing (DEFUN MAKE-DEFAULT-BINDING ...)
; processing (DEFUN MAKE-VAR-AND-BINDING ...)
; processing (DEFUN MAKE-VAR-AND-DEFAULT-BINDING ...)
; processing (DEFUN MAKE-ACCUM-VAR-BINDING ...)
; processing (DEFUN MAKE-ACCUM-VAR-DEFAULT-BINDING ...)
; processing (DEFUN MAKE-ACCUM-VAR-BINDING-INTERNAL ...)
; processing (DEFUN MAKE-SHARED-BINDING ...)
; processing (DEFUN MAKE-BINDING-INTERNAL ...)
; processing (DEFUN MAKE-INITIAL-VALUE ...)
; processing (DEFUN ADD-BINDING ...)
; processing (DEFUN CHECK-INTERNAL-VARIABLES ...)
; processing (DEFUN INTERNAL-VARIABLE? ...)
; processing (DEFUN VAR-BINDING ...)
; processing (DEFUN MAKE-DESTRUCTURING-BINDINGS ...)
; processing (DEFUN DO-DESTRUCTURING-BINDINGS ...)
; processing (DEFUN EXTRACT-VARS ...)
; processing (DEFMACRO DSETQ ...)
; processing (DEFUN DO-DSETQ ...)
; processing (DEFUN MAKE-DSETQS ...)
; processing (DEFUN MAKE-MV-DSETQS ...)
; processing (DEFUN DSETQ-ERROR ...)
; processing (DEFUN IN-ITERATE? ...)
; processing (DEFUN LOCAL-BINDING-CHECK ...)
; processing (DEFUN FREE-VARIABLES ...)
; processing (DEFUN FREE-VARS ...)
; processing (DEFUN FREE-VARS-LIST ...)
; processing (DEFUN FREE-VARS-FSPEC ...)
; processing (DEFUN RETURN-CODE ...)
; processing (DEFMACRO RETURN-DRIVER-CODE ...)
; processing (DEFUN ADD-DRIVER-INFO ...)
; processing (DEFMACRO RETURN-SEQUENCE-CODE ...)
; processing (DEFUN RETURN-SEQ-CODE ...)
; processing (DEFUN CHECK-SEQUENCE-KEYWORDS ...)
; processing (DEFUN EVAL-CONST-EXPR ...)
; processing (DEFUN MAKE-FUNCALL ...)
; processing (DEFUN MAKE-APPLICATION ...)
; processing (DEFUN APPLY-SUBST-EXPR ...)
; processing (DEFMACRO DEF-SPECIAL-CLAUSE ...)
; processing (DEFUN INSTALL-SPECIAL-CLAUSE-FUNCTION ...)
; processing (DEF-SPECIAL-CLAUSE INITIALLY ...)
; processing (DEF-SPECIAL-CLAUSE AFTER-EACH ...)
; processing (DEF-SPECIAL-CLAUSE ELSE ...)
; processing (DEF-SPECIAL-CLAUSE FINALLY ...)
; processing (DEF-SPECIAL-CLAUSE FINALLY-PROTECTED ...)
; processing (DEF-SPECIAL-CLAUSE IF-FIRST-TIME ...)
; processing (DEF-SPECIAL-CLAUSE FIRST-TIME-P ...)
; processing (DEF-SPECIAL-CLAUSE FIRST-ITERATION-P ...)
; processing (DEF-SPECIAL-CLAUSE IN ...)
; processing (DEF-SPECIAL-CLAUSE NEXT ...)
; processing (DEFUN MAKE-NEXT-CODE ...)
; processing (DEFUN VAR-VALUE-RETURNED ...)
; processing (DEFSYNONYM AS ...)
; processing (DEFSYNONYM GENERATING ...)
; processing (DEFCLAUSE (REPEAT N) ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR-SPEC ...) ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR ...) ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR ...) ...)
; processing (DEFUN GENERATE-FUNCTION-STEP-CODE ...)
; processing (DEFCLAUSE-SEQUENCE IN-VECTOR ...)
; processing (DEFCLAUSE-SEQUENCE IN-SEQUENCE ...)
; processing (DEFCLAUSE-SEQUENCE IN-STRING ...)
; processing (DEFCLAUSE-DRIVER (FOR KEY-VAL-VARS ...) ...)
; processing (DEFCLAUSE-DRIVER (FOR SYM-ACCESS-PKG-VARS ...) ...)
; processing (DEFMACRO-DRIVER (FOR VAR ...) ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR ...) ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR ...) ...)
; processing (DEFUN RETURN-STREAM-DRIVER-CODE ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR ...) ...)
; processing (DEFCLAUSE-DRIVER (FOR VAR ...) ...)
; processing (DEFCLAUSE (WITH VAR ...) ...)
; processing (DEFCLAUSE (FOR VAR ...) ...)
; processing (DEFCLAUSE (FOR VAR ...) ...)
; processing (DEFCLAUSE (FOR VAR ...) ...)
; processing (DEFUN RETURN-REDUCTION-CODE ...)
; processing (DEFSYNONYM COUNT ...)
; processing (DEFCLAUSE (COUNTING EXPR ...) ...)
; processing (DEFCLAUSE (SUM EXPR ...) ...)
; processing (DEFSYNONYM SUMMING ...)
; processing (DEFCLAUSE (MULTIPLY EXPR ...) ...)
; processing (DEFSYNONYM MULTIPLYING ...)
; processing (DEFCLAUSE (REDUCING EXPR ...) ...)
; processing (DEFCLAUSE (MAXIMIZE EXPR ...) ...)
; processing (DEFSYNONYM MAXIMIZING ...)
; processing (DEFCLAUSE (MINIMIZE EXPR ...) ...)
; processing (DEFSYNONYM MINIMIZING ...)
; processing (DEFUN RETURN-EXTREMUM-CODE ...)
; processing (DEFMACRO FINISH ...)
; processing (DEFMACRO TERMINATE ...)
; processing (DEFMACRO NEXT-ITERATION ...)
; processing (DEFMACRO LEAVE ...)
; processing (DEFCLAUSE (WHILE EXPR) ...)
; processing (DEFCLAUSE (UNTIL EXPR) ...)
; processing (DEFCLAUSE (ALWAYS EXPR) ...)
; processing (DEFCLAUSE (NEVER EXPR) ...)
; processing (DEFCLAUSE (THEREIS EXPR) ...)
; processing (DEFCLAUSE (FINDING EXPR ...) ...)
; processing (DEFCLAUSE (FINDING EXPR ...) ...)
; processing (DEFCLAUSE (FINDING EXPR ...) ...)
; processing (DEFUN RETURN-FIND-EXTREMUM-CODE ...)
; processing (DEFUN RETURN-COLLECTION-CODE ...)
; processing (DEFCLAUSE (COLLECT EXPR ...) ...)
; processing (DEFSYNONYM COLLECTING ...)
; processing (DEFCLAUSE (ADJOINING EXPR ...) ...)
; processing (DEFCLAUSE (NCONCING EXPR ...) ...)
; processing (DEFCLAUSE (APPENDING EXPR ...) ...)
; processing (DEFCLAUSE (UNIONING EXPR ...) ...)
; processing (DEFCLAUSE (NUNIONING EXPR ...) ...)
; processing (DEFCLAUSE (ACCUMULATE EXPR ...) ...)
; processing (DEFSYNONYM ACCUMULATING ...)
; processing (DEFCLAUSE (FOR PVAR-SPEC ...) ...)
; processing (DEFUN REGISTER-PREVIOUS-CODE ...)
; processing (DEFUN INTERN-PREVIOUS-INFO ...)
; processing (DEFUN IS-SAVE-VAR ...)
; processing (DEFUN MAKE-SAVE-VARS ...)
; processing (DEFUN INSERT-PREVIOUS-CODE ...)
; processing (DEFUN DO-EXTRA-SAVE-VAR-HACK ...)
; processing (DEFUN MAKE-POST-SAVE-VAR ...)
; processing (DEFUN MAKE-PREV-CODE ...)
; processing (DEFUN MAKE-SAVE-PREVIOUS-CODE ...)
; processing (DEFUN SPLICE-IN-CODE ...)
; processing (DEFUN ADD-PROGN ...)
; processing (DEFUN AT-TOP-LEVEL? ...)
; processing (DEFUN TOP-LEVEL-CHECK ...)
; processing (DEFUN PROGNIFY ...)
; processing (DEFUN CLAUSE-ERROR ...)
; processing (DEFUN CLAUSE-WARNING ...)
; processing (DEFUN BUG ...)
; processing (DEFVAR *GENVAR-COUNTER* ...)
; processing (DEFUN GENVAR ...)
; processing (DEFUN SYMBOL-APPEND ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/iterate/iterate-tmpDGT3OQUT.fasl
; compilation finished in 0:00:03.956
; compiling file "/usr/share/common-lisp/source/garbage-pools/garbage-pools.lisp" (written 17 APR 2013 09:15:14 PM):
; processing (DEFPACKAGE :GARBAGE-POOLS ...)
; processing (IN-PACKAGE #:GARBAGE-POOLS)
; processing (DEFVAR *POOL*)
; processing (DEFCLASS POOL ...)
; processing (DEFUN CLEANUP-REGISTER ...)
; processing (DEFUN CLEANUP-POOL ...)
; processing (DEFUN CLEANUP-OBJECT ...)
; processing (DEFUN CANCEL-OBJECT-CLEANUP ...)
; processing (DEFMACRO WITH-GARBAGE-POOL ...)
; processing (DEFGENERIC OBJECT-REGISTER ...)
; processing (DEFMETHOD OBJECT-REGISTER ...)
; processing (DEFMACRO DEFCLEANUP ...)
; processing (DEFCLEANUP POOL ...)
; processing (DEFCLEANUP STREAM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/garbage-pools/garbage-pools-tmpNF26V1SW.fasl
; compilation finished in 0:00:00.084
; compiling file "/usr/share/common-lisp/source/parse-number/parse-number.lisp" (written 31 OCT 2017 08:17:56 AM):
; processing (DEFPACKAGE #:ORG.MAPCAR.PARSE-NUMBER ...)
; processing (IN-PACKAGE #:ORG.MAPCAR.PARSE-NUMBER)
; processing (DEFINE-CONDITION INVALID-NUMBER ...)
; processing (DECLAIM (TYPE CONS ...))
; processing (DEFPARAMETER *WHITE-SPACE-CHARACTERS* ...)
; processing (DECLAIM (INLINE WHITE-SPACE-P))
; processing (DEFUN WHITE-SPACE-P ...)
; processing (DECLAIM (INLINE PARSE-INTEGER-AND-PLACES))
; processing (DEFUN PARSE-INTEGER-AND-PLACES ...)
; file: /usr/share/common-lisp/source/parse-number/parse-number.lisp
; in: DEFUN PARSE-INTEGER-AND-PLACES
; (CHAR STRING ORG.MAPCAR.PARSE-NUMBER::POS)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (CONS INTEGER ORG.MAPCAR.PARSE-NUMBER::RELEVANT-DIGITS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of LIST
; processing (DEFUN PARSE-INTEGERS ...)
; file: /usr/share/common-lisp/source/parse-number/parse-number.lisp
; in: DEFUN PARSE-INTEGERS
; (ORG.MAPCAR.PARSE-NUMBER::PARSE-INTEGER-AND-PLACES STRING
; ORG.MAPCAR.PARSE-NUMBER::LEFT ORG.MAPCAR.PARSE-NUMBER::END :RADIX
; ORG.MAPCAR.PARSE-NUMBER::RADIX)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET -
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; (ORG.MAPCAR.PARSE-NUMBER::PARSE-INTEGER-AND-PLACES STRING
; ORG.MAPCAR.PARSE-NUMBER::LEFT ORG.MAPCAR.PARSE-NUMBER::RIGHT :RADIX
; ORG.MAPCAR.PARSE-NUMBER::RADIX)
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of LIST
; (ORG.MAPCAR.PARSE-NUMBER::PARSE-INTEGER-AND-PLACES STRING
; ORG.MAPCAR.PARSE-NUMBER::LEFT ORG.MAPCAR.PARSE-NUMBER::END :RADIX
; ORG.MAPCAR.PARSE-NUMBER::RADIX)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET CONS
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of LIST
; processing (DECLAIM (INLINE NUMBER-VALUE ...))
; processing (DEFUN NUMBER-VALUE ...)
; processing (DEFUN PLACES ...)
; processing (DEFUN PARSE-NUMBER ...)
; processing (DEFUN PARSE-REAL-NUMBER ...)
; processing (DEFUN BASE-FOR-EXPONENT-MARKER ...)
; processing (DEFUN MAKE-FLOAT/FRAC ...)
; processing (DEFUN MAKE-FLOAT/WHOLE ...)
; processing (DEFUN PARSE-POSITIVE-REAL-NUMBER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/parse-number/parse-number-tmp2SBNA8NV.fasl
; compilation finished in 0:00:00.620
; compiling file "/usr/share/common-lisp/source/mssql/src/packages.lisp" (written 21 JUN 2017 01:29:38 PM):
; processing (DEFPACKAGE #:MSSQL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/mssql/src/packages-tmpGXTLRZRR.fasl
; compilation finished in 0:00:00.008
; compiling file "/usr/share/common-lisp/source/mssql/src/mssql.lisp" (written 21 JUN 2017 01:29:38 PM):
; processing (IN-PACKAGE :MSSQL)
; processing (DEFINE-FOREIGN-LIBRARY SYBDB ...)
; processing (WITH-SIMPLE-RESTART (SKIP "Skip loading foreign library tds.") ...)
; processing (DEFCTYPE %DBPROCESS ...)
; processing (DEFCTYPE %CHARPTR ...)
; processing (DEFCTYPE %LOGINREC ...)
; processing (DEFCTYPE %RETCODE ...)
; processing (DEFCTYPE %BYTE ...)
; processing (DEFCTYPE %DBINT ...)
; processing (DEFCTYPE %DBSMALLINT ...)
; processing (DEFCONSTANT +FAIL+ ...)
; processing (DEFCONSTANT +INT_CANCEL+ ...)
; processing (DEFINE-CONDITION MSSQL-ERROR ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCFUN ("dberrhandle" %DBERRHANDLE) ...)
; processing (DEFVAR *ERROR-MESSAGE-LIST*)
; processing (DEFCALLBACK %ERROR-HANDLER ...)
; processing (%DBERRHANDLE (CALLBACK %ERROR-HANDLER))
; processing (DEFCFUN ("dbmsghandle" %DBMSGHANDLE) ...)
; processing (DEFCALLBACK %MESSAGE-HANDLER ...)
; processing (%DBMSGHANDLE (CALLBACK %MESSAGE-HANDLER))
; processing (DEFMACRO DEFINE-SYBDB-FUNCTION ...)
; processing (DEFUN CFFI-STRING ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/mssql/src/mssql-tmp2OV9B8J5.fasl
; compilation finished in 0:00:00.192
; compiling file "/usr/share/common-lisp/source/mssql/src/connection.lisp" (written 21 JUN 2017 01:29:38 PM):
; processing (IN-PACKAGE :MSSQL)
; processing (DEFVAR *DATABASE* ...)
; processing (DEFCLASS DATABASE-CONNECTION ...)
; processing (DEFINE-SYBDB-FUNCTION ("dblogin" %DBLOGIN ...) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbloginfree" %DBLOGINFREE) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbsetlname" %DBSETLNAME ...) ...)
; processing (DEFINE-SYBDB-FUNCTION ("tdsdbopen" %TDSDBOPEN ...) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbcmd" %DBCMD ...) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbsqlexec" %DBSQLEXEC ...) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbcancel" %DBCANCEL ...) ...)
; processing (DEFUN CONNECT ...)
; processing (DEFUN CONNECTED-P ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbclose" %DBCLOSE) ...)
; processing (DEFUN DISCONNECT ...)
; processing (GARBAGE-POOLS:DEFCLEANUP DATABASE-CONNECTION ...)
; processing (DEFUN DISCONNECT-TOPLEVEL ...)
; processing (DEFUN CONNECT-TOPLEVEL ...)
; processing (DEFMACRO WITH-CONNECTION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/mssql/src/connection-tmpDWRCTFSG.fasl
; compilation finished in 0:00:00.224
; compiling file "/usr/share/common-lisp/source/mssql/src/query.lisp" (written 21 JUN 2017 01:29:38 PM):
; processing (IN-PACKAGE :MSSQL)
; processing (DEFCONSTANT +NO-MORE-RESULTS+ ...)
; processing (DEFCONSTANT +NO-MORE-ROWS+ ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbresults" %DBRESULTS) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbnumcols" %DBNUMCOLS) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbcolname" %DBCOLNAME) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbcoltype" %DBCOLTYPE) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbnextrow" %DBNEXTROW) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbdata" %DBDATA) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbdatlen" %DBDATLEN) ...)
; processing (DEFCENUM %SYB-VALUE-TYPE ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbconvert" %DBCONVERT) ...)
; processing (DEFCONSTANT +NUMERIC-BUF-SZ+ ...)
; processing (DEFUN SYSDB-DATA-TO-LISP ...)
; processing (DEFUN FIELD-NAME-S ...)
; processing (DEFUN ONE-ROW ...)
; processing (DEFUN ALL-ROWS ...)
; processing (DEFMACRO DEFINE-ROW-READER ...)
; processing (DEFINE-ROW-READER READ-PLIST-ROW ...)
; processing (DEFINE-ROW-READER READ-ALIST-ROW ...)
; processing (DEFINE-ROW-READER READ-LIST-ROW ...)
; file: /usr/share/common-lisp/source/mssql/src/query.lisp
; in: DEFINE-ROW-READER READ-LIST-ROW
; (MSSQL::DEFINE-ROW-READER MSSQL::READ-LIST-ROW
; (MSSQL::COLLUMN MSSQL::VALUE)
; (ITERATE:COLLECT MSSQL::VALUE))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ITERATE:ITER
; ==>
; (LET* ((#:LIST16 NIL)
; (MSSQL::COLLUMN NIL)
; (#:G2 NIL)
; (MSSQL::VALUE NIL)
; (#:RESULT15 NIL)
; (#:END-POINTER17 NIL)
; (#:TEMP18 NIL))
; (BLOCK NIL
; (BLOCK #:ITERATE3
; (TAGBODY
; (PROGN # #)
; MSSQL::LOOP-TOP-NIL
; (PROGN # # # # # #)
; (PROGN)
; (GO MSSQL::LOOP-TOP-NIL)
; MSSQL::LOOP-END-NIL
; (PROGN))
; #:RESULT15)))
;
; caught STYLE-WARNING:
; The variable COLLUMN is assigned but never read.
; processing (DEFUN READ-SINGLE-VALUE ...)
; processing (DEFPARAMETER *QUERY-FORMATS* ...)
; processing (DEFUN GET-RESULTS ...)
; processing (DEFUN QUERY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/mssql/src/query-tmpUJ89U641.fasl
; compilation finished in 0:00:00.272
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "mssql" "src" "query">
; compiling file "/usr/share/common-lisp/source/mssql/src/execute.lisp" (written 21 JUN 2017 01:29:38 PM):
; processing (IN-PACKAGE :MSSQL)
; processing (DEFUN EXECUTE ...)
; processing (DEFCLASS TRANSACTION-HANDLE ...)
; processing (DEFMACRO WITH-TRANSACTION ...)
; processing (DEFUN ROLLBACK-TRANSACTION ...)
; processing (DEFUN COMMIT-TRANSACTION ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/mssql/src/execute-tmpJAPE3FUS.fasl
; compilation finished in 0:00:00.048
; compiling file "/usr/share/common-lisp/source/mssql/src/remote.lisp" (written 21 JUN 2017 01:29:38 PM):
; processing (IN-PACKAGE :MSSQL)
; processing (DEFINE-SYBDB-FUNCTION ("dbrpcinit" %DBRPCINIT) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbrpcparam" %DBRPCPARAM) ...)
; processing (DEFINE-SYBDB-FUNCTION ("dbrpcsend" %DBRPCSEND) ...)
; processing (DEFUN LISP-TO-SYSDB ...)
; processing (DEFUN CALL-REMOTE-PROCEDURE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/mssql/src/remote-tmp1V7T6W0W.fasl
; compilation finished in 0:00:00.080
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
; printed 6 notes
;; loading file #P"/<<PKGBUILDDIR>>/src/hooks.lisp"
;; loading #P"/<<PKGBUILDDIR>>/src/hooks.lisp"
;; #<PACKAGE "COMMON-LISP-USER">
;; (:PGLOADER-IMAGE :SPLIT-SEQUENCE :FLEXI-STREAMS CFFI-FEATURES:FLAT-NAMESPACE
CFFI-FEATURES:UNIX :CFFI CFFI-SYS::FLAT-NAMESPACE :32-BIT
ALEXANDRIA::SEQUENCE-EMPTYP :ASDF-SYSTEM-CONNECTIONS :ASDF3.3 :ASDF3.2
:ASDF3.1 :ASDF3 :ASDF2 :ASDF :OS-UNIX :NON-BASE-CHARS-EXIST-P :ASDF-UNICODE
:ARM :GENCGC :ANSI-CL :COMMON-LISP :ELF :IEEE-FLOATING-POINT :LINUX
:LITTLE-ENDIAN :PACKAGE-LOCAL-NICKNAMES :SB-CORE-COMPRESSION :SB-LDB
:SB-PACKAGE-LOCKS :SB-UNICODE :SBCL :UNIX)
;; T
;; CLOSE-FOREIGN-LIBS
;; OPEN-FOREIGN-LIBS
;; (#<FUNCTION OPEN-FOREIGN-LIBS>)
;; (#<FUNCTION CLOSE-FOREIGN-LIBS>)
;; loading system "pgloader"
WARNING: System definition file #P"/usr/share/common-lisp/source/ieee-floats/ieee-floats.asd" contains definition for system "ieee-floats-tests". Please only define "ieee-floats" and secondary systems with a name starting with "ieee-floats/" (e.g. "ieee-floats/test") in that file.
WARNING: UIOP/VERSION:PARSE-VERSION: "1.1-dev" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "1.1-dev" for component "py-configparser" from file #P"/usr/share/common-lisp/source/py-configparser/py-configparser.asd", using NIL instead
WARNING: Invalid :version specifier "1.1-dev" for component "py-configparser" from file #P"/usr/share/common-lisp/source/py-configparser/py-configparser.asd", using NIL instead
WARNING: System definition file #P"/usr/share/common-lisp/source/trivial-utf-8/trivial-utf-8.asd" contains definition for system "trivial-utf-8-tests". Please only define "trivial-utf-8" and secondary systems with a name starting with "trivial-utf-8/" (e.g. "trivial-utf-8/test") in that file.
;;; Checking for wide character support... WARNING: Lisp implementation doesn't use UTF-16, but accepts surrogate code points.
yes, using code points.
WARNING: System definition file #P"/usr/share/common-lisp/source/cxml/cxml.asd" contains definition for system "cxml-xml". Please only define "cxml" and secondary systems with a name starting with "cxml/" (e.g. "cxml/test") in that file.
WARNING: System definition file #P"/usr/share/common-lisp/source/cxml/cxml.asd" contains definition for system "cxml-dom". Please only define "cxml" and secondary systems with a name starting with "cxml/" (e.g. "cxml/test") in that file.
WARNING: System definition file #P"/usr/share/common-lisp/source/cxml/cxml.asd" contains definition for system "cxml-klacks". Please only define "cxml" and secondary systems with a name starting with "cxml/" (e.g. "cxml/test") in that file.
WARNING: System definition file #P"/usr/share/common-lisp/source/cxml/cxml.asd" contains definition for system "cxml-test". Please only define "cxml" and secondary systems with a name starting with "cxml/" (e.g. "cxml/test") in that file.
;;; Checking for wide character support... WARNING: Lisp implementation doesn't use UTF-16, but accepts surrogate code points.
yes, using code points.
;;; Building Closure with CHARACTER RUNES
; compiling file "/usr/share/common-lisp/source/cl-log/pkg.lisp" (written 07 DEC 2012 12:06:09 PM):
; processing (IN-PACKAGE "CL-USER")
; processing (DEFPACKAGE "COM.RAVENBROOK.COMMON-LISP-LOG" ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-log/pkg-tmp952LXWTD.fasl
; compilation finished in 0:00:00.008
; compiling file "/usr/share/common-lisp/source/cl-log/cl-log.lisp" (written 07 DEC 2012 12:06:09 PM):
; processing (IN-PACKAGE "COM.RAVENBROOK.COMMON-LISP-LOG")
; processing (DEFPARAMETER *CL-LOG-RELEASE* ...)
; processing (DEFMACRO ORF ...)
; processing (DEFMACRO WHEN-LET ...)
; processing (DEFCLASS LOG-OBJECT ...)
; processing (DEFCLASS LOG-MANAGER ...)
; processing (DEFVAR *LOG-MANAGER* ...)
; processing (DEFUN LOG-MANAGER ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN FIRST-TIME-FOR-LOG-MANAGER ...)
; processing (DEFMETHOD LOGGING-DISABLED ...)
; processing (DEFMETHOD (SETF LOGGING-DISABLED) ...)
; processing (DEFMACRO WITH-LOGGING-DISABLED ...)
; processing (DEFMACRO WITH-LOG-MANAGER-DISABLED ...)
; processing (DEFMETHOD (SETF LOG-MANAGER-MESSENGERS) ...)
; processing (DEFMETHOD (SETF LOG-MANAGER-CATEGORY-SET) ...)
; processing (DEFMETHOD CATEGORY-CACHE ...)
; processing (DEFMETHOD INVALIDATE-LOG-MANAGER ...)
; processing (DEFUN (SETF LOG-MANAGER) ...)
; processing (DEFMACRO REBINDING-LOG-MANAGER ...)
; processing (DEFSTRUCT (TIMESTAMP #) ...)
; processing (DEFUN MAKE-TIMESTAMP ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS BASE-MESSAGE ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFCLASS FORMATTED-MESSAGE ...)
; processing (DEFMETHOD MESSAGE-TEXT ...)
; processing (DEFMETHOD FORMAT-MESSAGE ...)
; processing (DEFCLASS BASE-MESSENGER ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN START-MESSENGER ...)
; processing (DEFMETHOD STOP-MESSENGER ...)
; processing (DEFMETHOD STOP-MESSENGER ...)
; processing (DEFUN FIND-MESSENGER ...)
; processing (DEFUN CATEGORY-MESSENGERS ...)
; processing (DEFUN CATEGORY-SATISFIES ...)
; processing (DEFUN IN-CATEGORY-SATISFIES ...)
; processing (DEFUN SEND-MESSAGE ...)
; processing (DEFMETHOD MESSENGER-SEND-MESSAGE ...)
; processing (DEFSTRUCT (RING #) ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN MAKE-RING ...)
; processing (DEFUN RING-PUSH ...)
; processing (DEFUN RING-LIST ...)
; processing (DEFCLASS RING-MESSENGER ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD MESSENGER-SEND-MESSAGE ...)
; processing (DEFMETHOD RING-MESSENGER-MESSAGES ...)
; processing (DEFCLASS TEXT-STREAM-MESSENGER ...)
; processing (DEFMETHOD MESSENGER-SEND-MESSAGE ...)
; processing (DEFMETHOD STOP-MESSENGER ...)
; processing (DEFCLASS TEXT-FILE-MESSENGER ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFCLASS CATEGORY-SET ...)
; processing (DEFUN EXPAND-CATEGORY ...)
; processing (DEFMACRO DEFCATEGORY ...)
; processing (DEFUN DEFCATEGORY-FN ...)
; processing (DEFMACRO UNDEFCATEGORY ...)
; processing (DEFUN UNDEFCATEGORY-FN ...)
; processing (DEFUN CLEAR-CATEGORIES ...)
; processing (DEFMACRO LOG-MANAGER-MESSAGE ...)
; processing (DEFMACRO LOG-MESSAGE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/cl-log/cl-log-tmpLVFWNUU9.fasl
; compilation finished in 0:00:00.656
; compiling file "/usr/share/common-lisp/source/md5/md5.lisp" (written 22 JUN 2021 07:57:26 PM):
; processing (DEFPACKAGE #:MD5 ...)
; processing (IN-PACKAGE #:MD5)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ...)
; processing (DEFTYPE UB32 ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFTYPE UB32-VECTOR ...)
; processing (DEFMACRO MAKE-UB32-VECTOR ...)
; processing (DEFMACRO UB32-AREF ...)
; processing (DECLAIM (INLINE F ...) ...)
; processing (DEFUN F ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN F
; (DEFUN MD5::F (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LOGAND MD5::X MD5::Y) (LOGANDC1 MD5::X MD5::Z)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::F
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5::F (LOGIOR (LOGAND MD5::X MD5::Y) (LOGANDC1 MD5::X MD5::Z))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN G ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN G
; (DEFUN MD5::G (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGIOR (LOGAND MD5::X MD5::Z) (LOGANDC2 MD5::Y MD5::Z)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::G
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5::G (LOGIOR (LOGAND MD5::X MD5::Z) (LOGANDC2 MD5::Y MD5::Z))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN H ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN H
; (DEFUN MD5::H (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LOGXOR MD5::X MD5::Y MD5::Z))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::H
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5::H (LOGXOR MD5::X MD5::Y MD5::Z)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFUN I ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN I
; (DEFUN MD5::I (MD5::X MD5::Y MD5::Z)
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LDB (BYTE 32 0) (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z))))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::I
; (MD5::X MD5::Y MD5::Z)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE MD5::UB32 MD5::X MD5::Y MD5::Z)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5::I (LDB (BYTE 32 0) (LOGXOR MD5::Y (LOGORC2 MD5::X MD5::Z)))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DECLAIM (INLINE MOD32+) ...)
; processing (DEFUN MOD32+ ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN MOD32+
; (DEFUN MD5::MOD32+ (MD5::A MD5::B)
; (DECLARE (TYPE MD5::UB32 MD5::A MD5::B)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (LDB (BYTE 32 0) (+ MD5::A MD5::B)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::MOD32+
; (MD5::A MD5::B)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE MD5::UB32 MD5::A MD5::B)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5::MOD32+ (LDB (BYTE 32 0) (+ MD5::A MD5::B))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-COMPILER-MACRO MOD32+ ...)
; processing (DECLAIM (INLINE ROL32) ...)
; processing (DEFUN ROL32 ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN ROL32
; (DEFUN MD5::ROL32 (MD5::A MD5::S)
; (DECLARE (TYPE MD5::UB32 MD5::A)
; (TYPE (UNSIGNED-BYTE 5) MD5::S)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (SB-ROTATE-BYTE:ROTATE-BYTE MD5::S (BYTE 32 0) MD5::A))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5::ROL32
; (MD5::A MD5::S)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE MD5::UB32 MD5::A)
; (TYPE (UNSIGNED-BYTE 5) MD5::S)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5::ROL32 (SB-ROTATE-BYTE:ROTATE-BYTE MD5::S (BYTE 32 0) MD5::A)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFMACRO WITH-MD5-ROUND ...)
; processing (DEFTYPE MD5-REGS ...)
; processing (DEFMACRO MD5-REGS-A ...)
; processing (DEFMACRO MD5-REGS-B ...)
; processing (DEFMACRO MD5-REGS-C ...)
; processing (DEFMACRO MD5-REGS-D ...)
; processing (DEFCONSTANT +MD5-MAGIC-A+ ...)
; processing (DEFCONSTANT +MD5-MAGIC-B+ ...)
; processing (DEFCONSTANT +MD5-MAGIC-C+ ...)
; processing (DEFCONSTANT +MD5-MAGIC-D+ ...)
; processing (DECLAIM (INLINE INITIAL-MD5-REGS))
; processing (DEFUN INITIAL-MD5-REGS ...)
; processing (DEFTYPE MD5-BLOCK ...)
; processing (DEFUN UPDATE-MD5-BLOCK ...)
; processing (DECLAIM (INLINE FILL-BLOCK ...))
; processing (DEFUN FILL-BLOCK-UB8 ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN FILL-BLOCK-UB8
; (SB-KERNEL:%BYTE-BLT MD5::BUFFER MD5::OFFSET BLOCK 0 64)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SB-ALIEN-INTERNALS:ALIEN-VALUE, not a (SB-ALIEN:ALIEN
; (* T)).
;
; note: unable to optimize because: can't tell function type at compile time
;
; note: doing SAP to pointer coercion (cost 20), for:
; the second argument of SET-SLOT
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFUN FILL-BLOCK-CHAR ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN FILL-BLOCK-CHAR
; (DEFUN MD5:FILL-BLOCK-CHAR (BLOCK MD5::BUFFER MD5::OFFSET)
; "DEPRECATED: Convert a complete 64 character input string segment
; starting from `offset' into the given 16 word MD5 block."
; (DECLARE (TYPE (INTEGER 0 536870847) MD5::OFFSET)
; (TYPE MD5::MD5-BLOCK BLOCK)
; (TYPE SIMPLE-STRING MD5::BUFFER)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA MD5:FILL-BLOCK-CHAR
; (BLOCK MD5::BUFFER MD5::OFFSET)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; "DEPRECATED: Convert a complete 64 character input string segment
; starting from `offset' into the given 16 word MD5 block."
; (DECLARE (TYPE (INTEGER 0 536870847) MD5::OFFSET)
; (TYPE MD5::MD5-BLOCK BLOCK)
; (TYPE SIMPLE-STRING MD5::BUFFER)
; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
; (BLOCK MD5:FILL-BLOCK-CHAR))
;
; caught STYLE-WARNING:
; The variable BLOCK is defined but never used.
;
; caught STYLE-WARNING:
; The variable BUFFER is defined but never used.
;
; caught STYLE-WARNING:
; The variable OFFSET is defined but never used.
; processing (DEFUN FILL-BLOCK ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN FILL-BLOCK
; (MD5:FILL-BLOCK-CHAR BLOCK MD5::BUFFER MD5::OFFSET)
;
; caught STYLE-WARNING:
; The variable BLOCK is defined but never used.
;
; caught STYLE-WARNING:
; The variable BUFFER is defined but never used.
;
; caught STYLE-WARNING:
; The variable OFFSET is defined but never used.
; (MD5:FILL-BLOCK-UB8 BLOCK MD5::BUFFER MD5::OFFSET)
; --> BLOCK SB-KERNEL:%BYTE-BLT
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SB-ALIEN-INTERNALS:ALIEN-VALUE, not a (SB-ALIEN:ALIEN
; (* T)).
;
; note: unable to optimize because: can't tell function type at compile time
;
; note: doing SAP to pointer coercion (cost 20), for:
; the second argument of SET-SLOT
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DECLAIM (INLINE MD5REGS-DIGEST))
; processing (DEFUN MD5REGS-DIGEST ...)
; processing (LOCALLY (DECLARE #) ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFSTRUCT MD5-STATE
; (MD5::AMOUNT 0 :TYPE (INTEGER 0 *))
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET SB-KERNEL:THE* MULTIPLE-VALUE-BIND
; --> LET PROGN UNLESS IF TYPEP
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (DEFSTRUCT (MD5:MD5-STATE (:CONSTRUCTOR MD5:MAKE-MD5-STATE NIL) (:COPIER))
; (MD5::REGS (MD5:INITIAL-MD5-REGS) :TYPE MD5:MD5-REGS :READ-ONLY T)
; (MD5::AMOUNT 0 :TYPE (INTEGER 0 *))
; (BLOCK (MD5::MAKE-UB32-VECTOR 16) :READ-ONLY T :TYPE MD5::MD5-BLOCK)
; (MD5::BUFFER (MAKE-ARRAY 64 :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) :READ-ONLY T
; :TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (64)))
; (MD5::BUFFER-INDEX 0 :TYPE (INTEGER 0 63))
; (MD5::FINALIZED-P NIL))
; --> SB-KERNEL::%TARGET-DEFSTRUCT SB-KERNEL::%TARGET-DEFSTRUCT
; --> SB-INT:NAMED-LAMBDA FUNCTION AND IF IF =
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; processing (DECLAIM (INLINE COPY-TO-BUFFER))
; processing (DEFUN COPY-TO-BUFFER ...)
; processing (DEFUN UPDATE-MD5-STATE ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN UPDATE-MD5-STATE
; (MD5:FILL-BLOCK-CHAR BLOCK SEQUENCE MD5::OFFSET)
;
; caught STYLE-WARNING:
; The variable BLOCK is defined but never used.
;
; caught STYLE-WARNING:
; The variable BUFFER is defined but never used.
;
; caught STYLE-WARNING:
; The variable OFFSET is defined but never used.
; (MD5:FILL-BLOCK-UB8 BLOCK SEQUENCE MD5::OFFSET)
; --> SB-KERNEL:%BYTE-BLT
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SB-ALIEN-INTERNALS:ALIEN-VALUE, not a (SB-ALIEN:ALIEN
; (* T)).
;
; note: unable to optimize because: can't tell function type at compile time
; (MD5:FILL-BLOCK-UB8 BLOCK MD5::BUFFER 0)
; --> BLOCK SB-KERNEL:%BYTE-BLT
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SB-ALIEN-INTERNALS:ALIEN-VALUE, not a (SB-ALIEN:ALIEN
; (* T)).
;
; note: unable to optimize because: can't tell function type at compile time
; (+ (MD5::MD5-STATE-AMOUNT MD5::STATE) LENGTH)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; 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 . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (MD5:FILL-BLOCK-UB8 BLOCK SEQUENCE MD5::OFFSET)
; --> SB-KERNEL:%BYTE-BLT
; ==>
; 1
;
; note: doing SAP to pointer coercion (cost 20), for:
; the second argument of SET-SLOT
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing SAP to pointer coercion (cost 20)
; (MD5:FILL-BLOCK-UB8 BLOCK MD5::BUFFER 0)
; --> BLOCK SB-KERNEL:%BYTE-BLT
; ==>
; 1
;
; note: doing SAP to pointer coercion (cost 20), for:
; the second argument of SET-SLOT
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFUN FINALIZE-MD5-STATE ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN FINALIZE-MD5-STATE
; (MD5:FILL-BLOCK-UB8 BLOCK MD5::BUFFER 0)
; --> BLOCK SB-KERNEL:%BYTE-BLT
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SB-ALIEN-INTERNALS:ALIEN-VALUE, not a (SB-ALIEN:ALIEN
; (* T)).
;
; note: unable to optimize because: can't tell function type at compile time
; (LDB (BYTE 32 32) MD5::TOTAL-LENGTH)
;
; note: unable to convert to inline logical operations because: not a word-sized integer
; (* 8 (MD5::MD5-STATE-AMOUNT MD5::STATE))
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (LDB (BYTE 32 0) MD5::TOTAL-LENGTH)
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (MD5:FILL-BLOCK-UB8 BLOCK MD5::BUFFER 0)
; --> BLOCK SB-KERNEL:%BYTE-BLT
; ==>
; 1
;
; note: doing SAP to pointer coercion (cost 20), for:
; the second argument of SET-SLOT
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFUN MD5SUM-SEQUENCE ...)
; file: /usr/share/common-lisp/source/md5/md5.lisp
; in: DEFUN MD5SUM-SEQUENCE
; (MD5:UPDATE-MD5-STATE MD5::STATE MD5::DATA :START MD5::REAL-START :END
; (+ MD5::REAL-START (- MD5::END MD5::START)))
;
; note: doing signed word to integer coercion (cost 20)
; processing (DEFUN MD5SUM-STRING ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFTYPE BUFFER-INDEX ...)
; processing (DEFUN MD5SUM-STREAM ...)
; processing (DEFUN MD5SUM-FILE ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/md5/md5-tmpDKBKLORG.fasl
; compilation finished in 0:00:01.680
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "md5" "md5">
; compiling file "/usr/share/common-lisp/source/ironclad/src/package.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (DEFPACKAGE :IRONCLAD ...)
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN ARRAY-READER ...)
; processing (DEFPARAMETER *IRONCLAD-READTABLE* ...)
; processing (DEFMACRO IN-IRONCLAD-READTABLE ...)
; processing (DEFUN IRONCLAD-IMPLEMENTATION-FEATURES ...)
; processing (DOLIST (F #) ...)
; processing (PUSHNEW :IRONCLAD-ASSEMBLY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/package-tmpMO2T7PGC.fasl
; compilation finished in 0:00:00.084
; compiling file "/usr/share/common-lisp/source/ironclad/src/conditions.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :IRONCLAD)
; processing (DEFINE-CONDITION IRONCLAD-ERROR ...)
; processing (DEFINE-CONDITION KEY-NOT-SUPPLIED ...)
; processing (DEFINE-CONDITION INITIALIZATION-VECTOR-NOT-SUPPLIED ...)
; processing (DEFINE-CONDITION INVALID-INITIALIZATION-VECTOR ...)
; processing (DEFINE-CONDITION INVALID-KEY-LENGTH ...)
; processing (DEFINE-CONDITION UNSUPPORTED-CIPHER ...)
; processing (DEFINE-CONDITION UNSUPPORTED-MODE ...)
; processing (DEFINE-CONDITION UNSUPPORTED-PADDING ...)
; processing (DEFINE-CONDITION UNSUPPORTED-DIGEST ...)
; processing (DEFINE-CONDITION UNSUPPORTED-MAC ...)
; processing (DEFINE-CONDITION UNSUPPORTED-KDF ...)
; processing (DEFINE-CONDITION UNSUPPORTED-SCRYPT-COST-FACTORS ...)
; processing (DEFINE-CONDITION UNSUPPORTED-ARGON2-PARAMETERS ...)
; processing (DEFINE-CONDITION INSUFFICIENT-BUFFER-SPACE ...)
; processing (DEFINE-CONDITION INVALID-PADDING ...)
; processing (DEFINE-CONDITION INVALID-MAC-PARAMETER ...)
; processing (DEFINE-CONDITION INVALID-SIGNATURE-LENGTH ...)
; processing (DEFINE-CONDITION INVALID-MESSAGE-LENGTH ...)
; processing (DEFINE-CONDITION MISSING-KEY-PARAMETER ...)
; processing (DEFINE-CONDITION MISSING-MESSAGE-PARAMETER ...)
; processing (DEFINE-CONDITION MISSING-SIGNATURE-PARAMETER ...)
; processing (DEFINE-CONDITION INCOMPATIBLE-KEYS ...)
; processing (DEFINE-CONDITION INVALID-CURVE-POINT ...)
; processing (DEFINE-CONDITION INVALID-PUBLIC-KEY-LENGTH ...)
; processing (DEFINE-CONDITION OAEP-DECODING-ERROR ...)
; processing (DEFINE-CONDITION UNSUPPORTED-AUTHENTICATED-ENCRYPTION-MODE ...)
; processing (DEFINE-CONDITION BAD-AUTHENTICATION-TAG ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/conditions-tmp5EVOKXWI.fasl
; compilation finished in 0:00:00.316
; compiling file "/usr/share/common-lisp/source/ironclad/src/generic.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFGENERIC PROCESS-ASSOCIATED-DATA ...)
; processing (DEFGENERIC PRODUCE-TAG ...)
; processing (DEFGENERIC VERIFY-KEY ...)
; processing (DEFGENERIC SCHEDULE-KEY ...)
; processing (DEFGENERIC KEY-LENGTHS ...)
; processing (DEFGENERIC BLOCK-LENGTH ...)
; processing (DEFGENERIC ENCRYPTED-MESSAGE-LENGTH ...)
; processing (DEFGENERIC MODE-CRYPT-FUNCTIONS ...)
; processing (DEFGENERIC VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFGENERIC ENCRYPT ...)
; processing (DEFGENERIC DECRYPT ...)
; processing (DEFGENERIC DIGEST-FILE ...)
; processing (DEFGENERIC DIGEST-STREAM ...)
; processing (DEFGENERIC DIGEST-SEQUENCE ...)
; processing (DEFGENERIC COPY-DIGEST ...)
; processing (DEFGENERIC UPDATE-DIGEST ...)
; processing (DEFGENERIC PRODUCE-DIGEST ...)
; processing (DEFGENERIC DIGEST-LENGTH ...)
; processing (DEFGENERIC DERIVE-KEY ...)
; processing (DEFGENERIC UPDATE-MAC ...)
; processing (DEFGENERIC PRODUCE-MAC ...)
; processing (DEFGENERIC ADD-PADDING-BYTES ...)
; processing (DEFGENERIC COUNT-PADDING-BYTES ...)
; processing (DEFGENERIC MAKE-PRNG ...)
; processing (DEFGENERIC PRNG-RANDOM-DATA ...)
; processing (DEFGENERIC PRNG-RESEED ...)
; processing (DEFGENERIC PRNG-SEED-LENGTH ...)
; processing (DEFGENERIC MAKE-PUBLIC-KEY ...)
; processing (DEFGENERIC DESTRUCTURE-PUBLIC-KEY ...)
; processing (DEFGENERIC MAKE-PRIVATE-KEY ...)
; processing (DEFGENERIC DESTRUCTURE-PRIVATE-KEY ...)
; processing (DEFGENERIC GENERATE-KEY-PAIR ...)
; processing (DEFGENERIC MAKE-SIGNATURE ...)
; processing (DEFGENERIC DESTRUCTURE-SIGNATURE ...)
; processing (DEFGENERIC GENERATE-SIGNATURE-NONCE ...)
; processing (DEFGENERIC SIGN-MESSAGE ...)
; processing (DEFGENERIC VERIFY-SIGNATURE ...)
; processing (DEFGENERIC MAKE-MESSAGE ...)
; processing (DEFGENERIC DESTRUCTURE-MESSAGE ...)
; processing (DEFGENERIC ENCRYPT-MESSAGE ...)
; processing (DEFGENERIC DECRYPT-MESSAGE ...)
; processing (DEFGENERIC DIFFIE-HELLMAN ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/generic-tmp7EN5VFOC.fasl
; compilation finished in 0:00:00.084
WARNING: redefining IRONCLAD:BLOCK-LENGTH in DEFGENERIC
; compiling file "/usr/share/common-lisp/source/ironclad/src/macro-utils.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN QUOTATIONP ...)
; processing (DEFUN UNQUOTE ...)
; processing (DEFUN MASSAGE-SYMBOL ...)
; processing (DEFUN MAKE-CIRCULAR-LIST ...)
; processing (DEFUN CIRCULAR-LIST-SUBSEQ ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFMACRO DOTIMES-UNROLLED ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macro-utils-tmpWA664A3J.fasl
; compilation finished in 0:00:00.080
; compiling file "/usr/share/common-lisp/source/ironclad/src/util.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DECLAIM (INLINE BYTE-ARRAY-TO-HEX-STRING ...))
; processing (DEFUN BYTE-ARRAY-TO-HEX-STRING ...)
; file: /usr/share/common-lisp/source/ironclad/src/util.lisp
; in: DEFUN BYTE-ARRAY-TO-HEX-STRING
; (AREF VECTOR IRONCLAD::I)
;
; 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.
; processing (DEFUN HEX-STRING-TO-BYTE-ARRAY ...)
; processing (DEFUN ASCII-STRING-TO-BYTE-ARRAY ...)
; file: /usr/share/common-lisp/source/ironclad/src/util.lisp
; in: DEFUN ASCII-STRING-TO-BYTE-ARRAY
; (CHAR STRING IRONCLAD::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 (DECLAIM (NOTINLINE BYTE-ARRAY-TO-HEX-STRING ...))
; processing (DEFUN CONSTANT-TIME-EQUAL ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/util-tmp3CS3QORN.fasl
; compilation finished in 0:00:00.164
; compiling file "/usr/share/common-lisp/source/ironclad/src/opt/sbcl/fndb.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :SB-C)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/opt/sbcl/fndb-tmpD6CVA6PG.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/ironclad/src/opt/sbcl/x86oid-vm.lisp" (written 18 FEB 2022 01:39:10 PM):
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/opt/sbcl/x86oid-vm-tmpJTJ7UKVB.fasl
; compilation finished in 0:00:00.016
; compiling file "/usr/share/common-lisp/source/ironclad/src/opt/sbcl/cpu-features.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/opt/sbcl/cpu-features-tmpI3M10D0B.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/ironclad/src/common.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFMACRO DEFCONST ...)
; processing (DEFTYPE INDEX ...)
; processing (DEFTYPE INDEX+1 ...)
; processing (DEFTYPE SIMPLE-OCTET-VECTOR ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (PROGN (PROGN # ...) ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DECLAIM (INLINE UB16REF/LE ...))
; processing (DEFUN UB16REF/LE ...)
; processing (DEFUN (SETF UB16REF/LE) ...)
; processing (DEFUN UB16REF/BE ...)
; processing (DEFUN (SETF UB16REF/BE) ...)
; processing (DEFUN UB32REF/LE ...)
; processing (DEFUN (SETF UB32REF/LE) ...)
; processing (DEFUN UB32REF/BE ...)
; processing (DEFUN (SETF UB32REF/BE) ...)
; processing (DEFUN UB64REF/LE ...)
; processing (DEFUN (SETF UB64REF/LE) ...)
; processing (DEFUN UB64REF/BE ...)
; processing (DEFUN (SETF UB64REF/BE) ...)
; processing (DECLAIM (INLINE MOD32+) ...)
; processing (DEFUN MOD32+ ...)
; processing (DEFINE-COMPILER-MACRO MOD32+ ...)
; processing (DECLAIM (INLINE MOD32-) ...)
; processing (DEFUN MOD32- ...)
; processing (DEFINE-COMPILER-MACRO MOD32- ...)
; processing (DECLAIM (INLINE MOD32*) ...)
; processing (DEFUN MOD32* ...)
; processing (DEFINE-COMPILER-MACRO MOD32* ...)
; processing (DECLAIM (INLINE MOD32ASH) ...)
; processing (DEFUN MOD32ASH ...)
; processing (DEFINE-COMPILER-MACRO MOD32ASH ...)
; processing (DECLAIM (INLINE MOD32LOGNOT) ...)
; processing (DEFUN MOD32LOGNOT ...)
; processing (DEFINE-COMPILER-MACRO MOD32LOGNOT ...)
; processing (DECLAIM (INLINE ROL32 ...) ...)
; processing (DEFUN ROL32 ...)
; processing (DEFUN ROR32 ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN MOD64+ ...)
; processing (DEFINE-COMPILER-MACRO MOD64+ ...)
; processing (DEFUN MOD64- ...)
; processing (DEFINE-COMPILER-MACRO MOD64- ...)
; processing (DEFUN MOD64* ...)
; processing (DEFINE-COMPILER-MACRO MOD64* ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN MOD64ASH ...)
; processing (DEFINE-COMPILER-MACRO MOD64ASH ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN MOD64LOGNOT ...)
; processing (DEFINE-COMPILER-MACRO MOD64LOGNOT ...)
; processing (DECLAIM (FTYPE # ...))
; processing (DEFUN ROL64 ...)
; processing (DEFUN ROR64 ...)
; processing (DECLAIM (INLINE %ADD-WITH-CARRY ...))
; processing (DEFUN %ADD-WITH-CARRY ...)
; processing (DEFUN %SUBTRACT-WITH-BORROW ...)
; processing (DECLAIM (INLINE FILL-BLOCK-LE-UB8 ...))
; processing (DECLAIM (INLINE COPY-TO-BUFFER))
; processing (DEFUN COPY-TO-BUFFER ...)
; processing (DEFUN FILL-BLOCK-UB8-LE ...)
; processing (DEFUN FILL-BLOCK-UB8-BE ...)
; processing (DEFUN FILL-BLOCK-UB8-LE/64 ...)
; file: /usr/share/common-lisp/source/ironclad/src/common.lisp
; in: DEFUN FILL-BLOCK-UB8-LE/64
; (IRONCLAD:UB64REF/LE IRONCLAD::BUFFER IRONCLAD::J)
; --> BLOCK DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; processing (DEFUN FILL-BLOCK-UB8-BE/64 ...)
; file: /usr/share/common-lisp/source/ironclad/src/common.lisp
; in: DEFUN FILL-BLOCK-UB8-BE/64
; (IRONCLAD:UB64REF/BE IRONCLAD::BUFFER IRONCLAD::J)
; --> BLOCK DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; processing (DEFUN XOR-BLOCK ...)
; processing (DEFINE-COMPILER-MACRO XOR-BLOCK ...)
; file: /usr/share/common-lisp/source/ironclad/src/common.lisp
; in: DEFINE-COMPILER-MACRO XOR-BLOCK
; (DEFINE-COMPILER-MACRO IRONCLAD::XOR-BLOCK
; (&WHOLE IRONCLAD::FORM &ENVIRONMENT IRONCLAD::ENV IRONCLAD:BLOCK-LENGTH
; IRONCLAD::INPUT-BLOCK1 IRONCLAD::INPUT-BLOCK1-START
; IRONCLAD::INPUT-BLOCK2 IRONCLAD::INPUT-BLOCK2-START
; IRONCLAD::OUTPUT-BLOCK IRONCLAD::OUTPUT-BLOCK-START)
; (COND (T IRONCLAD::FORM)))
; --> SB-INT:BINDING*
; ==>
; (LET* ((#:G0
; (SB-C::CHECK-DS-LIST (SB-C::COMPILER-MACRO-ARGS #:EXPR) 7 7
; '(# IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK1
; IRONCLAD::INPUT-BLOCK1-START
; IRONCLAD::INPUT-BLOCK2
; IRONCLAD::INPUT-BLOCK2-START
; IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START)))
; (IRONCLAD:BLOCK-LENGTH (POP #:G0))
; (IRONCLAD::INPUT-BLOCK1 (POP #:G0))
; (IRONCLAD::INPUT-BLOCK1-START (POP #:G0))
; (IRONCLAD::INPUT-BLOCK2 (POP #:G0))
; (IRONCLAD::INPUT-BLOCK2-START (POP #:G0))
; (IRONCLAD::OUTPUT-BLOCK (POP #:G0))
; (IRONCLAD::OUTPUT-BLOCK-START (POP #:G0)))
; (DECLARE
; (SB-C::CONSTANT-VALUE IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK1
; IRONCLAD::INPUT-BLOCK1-START IRONCLAD::INPUT-BLOCK2
; IRONCLAD::INPUT-BLOCK2-START IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START))
; (DECLARE (SB-C::NO-COMPILER-MACRO IRONCLAD::XOR-BLOCK))
; (BLOCK IRONCLAD::XOR-BLOCK (COND (T IRONCLAD::FORM))))
;
; caught STYLE-WARNING:
; The variable BLOCK-LENGTH is defined but never used.
;
; caught STYLE-WARNING:
; The variable INPUT-BLOCK1 is defined but never used.
;
; caught STYLE-WARNING:
; The variable INPUT-BLOCK1-START is defined but never used.
;
; caught STYLE-WARNING:
; The variable INPUT-BLOCK2 is defined but never used.
;
; caught STYLE-WARNING:
; The variable INPUT-BLOCK2-START is defined but never used.
;
; caught STYLE-WARNING:
; The variable OUTPUT-BLOCK is defined but never used.
;
; caught STYLE-WARNING:
; The variable OUTPUT-BLOCK-START is defined but never used.
;
; caught STYLE-WARNING:
; The variable ENV is defined but never used.
; file: /usr/share/common-lisp/source/ironclad/src/common.lisp
; in: DEFINE-COMPILER-MACRO XOR-BLOCK
; (DEFINE-COMPILER-MACRO IRONCLAD::XOR-BLOCK
; (&WHOLE IRONCLAD::FORM &ENVIRONMENT IRONCLAD::ENV IRONCLAD:BLOCK-LENGTH
; IRONCLAD::INPUT-BLOCK1 IRONCLAD::INPUT-BLOCK1-START
; IRONCLAD::INPUT-BLOCK2 IRONCLAD::INPUT-BLOCK2-START
; IRONCLAD::OUTPUT-BLOCK IRONCLAD::OUTPUT-BLOCK-START)
; (COND (T IRONCLAD::FORM)))
; --> EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO SB-C::%DEFINE-COMPILER-MACRO
; --> SB-INT:NAMED-LAMBDA FUNCTION SB-INT:NAMED-DS-BIND SB-INT:BINDING*
; ==>
; (LET* ((#:G0
; (SB-C::CHECK-DS-LIST (SB-C::COMPILER-MACRO-ARGS #:EXPR) 7 7
; '(# IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK1
; IRONCLAD::INPUT-BLOCK1-START
; IRONCLAD::INPUT-BLOCK2
; IRONCLAD::INPUT-BLOCK2-START
; IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START)))
; (IRONCLAD:BLOCK-LENGTH (POP #:G0))
; (IRONCLAD::INPUT-BLOCK1 (POP #:G0))
; (IRONCLAD::INPUT-BLOCK1-START (POP #:G0))
; (IRONCLAD::INPUT-BLOCK2 (POP #:G0))
; (IRONCLAD::INPUT-BLOCK2-START (POP #:G0))
; (IRONCLAD::OUTPUT-BLOCK (POP #:G0))
; (IRONCLAD::OUTPUT-BLOCK-START (POP #:G0)))
; (DECLARE
; (SB-C::CONSTANT-VALUE IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK1
; IRONCLAD::INPUT-BLOCK1-START IRONCLAD::INPUT-BLOCK2
; IRONCLAD::INPUT-BLOCK2-START IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START))
; (DECLARE (SB-C::NO-COMPILER-MACRO IRONCLAD::XOR-BLOCK))
; (BLOCK IRONCLAD::XOR-BLOCK (COND (T IRONCLAD::FORM))))
;
; caught STYLE-WARNING:
; The variable BLOCK-LENGTH is defined but never used.
;
; caught STYLE-WARNING:
; The variable INPUT-BLOCK1 is defined but never used.
;
; caught STYLE-WARNING:
; The variable INPUT-BLOCK1-START is defined but never used.
;
; caught STYLE-WARNING:
; The variable INPUT-BLOCK2 is defined but never used.
;
; caught STYLE-WARNING:
; The variable INPUT-BLOCK2-START is defined but never used.
;
; caught STYLE-WARNING:
; The variable OUTPUT-BLOCK is defined but never used.
;
; caught STYLE-WARNING:
; The variable OUTPUT-BLOCK-START is defined but never used.
; --> EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO SB-C::%DEFINE-COMPILER-MACRO
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA (COMPILER-MACRO IRONCLAD::XOR-BLOCK)
; (#:EXPR IRONCLAD::ENV &AUX (IRONCLAD::FORM #:EXPR))
; (DECLARE
; (SB-C::LAMBDA-LIST
; (IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK1
; IRONCLAD::INPUT-BLOCK1-START
; IRONCLAD::INPUT-BLOCK2
; IRONCLAD::INPUT-BLOCK2-START
; IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START)))
; (SB-INT:NAMED-DS-BIND (:MACRO IRONCLAD::XOR-BLOCK . DEFINE-COMPILER-MACRO)
; (IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK1
; IRONCLAD::INPUT-BLOCK1-START
; IRONCLAD::INPUT-BLOCK2
; IRONCLAD::INPUT-BLOCK2-START
; IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START)
; (SB-C::COMPILER-MACRO-ARGS #:EXPR)
; (DECLARE
; (SB-C::CONSTANT-VALUE IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK1
; IRONCLAD::INPUT-BLOCK1-START
; IRONCLAD::INPUT-BLOCK2
; IRONCLAD::INPUT-BLOCK2-START
; IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START)
; (SB-C::NO-COMPILER-MACRO IRONCLAD::XOR-BLOCK))
; (BLOCK IRONCLAD::XOR-BLOCK (COND (T IRONCLAD::FORM)))))
;
; caught STYLE-WARNING:
; The variable ENV is defined but never used.
; processing (DEFUN COPY-BLOCK ...)
; processing (DEFINE-COMPILER-MACRO COPY-BLOCK ...)
; file: /usr/share/common-lisp/source/ironclad/src/common.lisp
; in: DEFINE-COMPILER-MACRO COPY-BLOCK
; (DEFINE-COMPILER-MACRO IRONCLAD::COPY-BLOCK
; (&WHOLE IRONCLAD::FORM &ENVIRONMENT IRONCLAD::ENV IRONCLAD:BLOCK-LENGTH
; IRONCLAD::INPUT-BLOCK IRONCLAD::INPUT-BLOCK-START IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START)
; (COND (T IRONCLAD::FORM)))
; --> SB-INT:BINDING*
; ==>
; (LET* ((#:G0
; (SB-C::CHECK-DS-LIST (SB-C::COMPILER-MACRO-ARGS #:EXPR) 5 5
; '(# IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK
; IRONCLAD::INPUT-BLOCK-START
; IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START)))
; (IRONCLAD:BLOCK-LENGTH (POP #:G0))
; (IRONCLAD::INPUT-BLOCK (POP #:G0))
; (IRONCLAD::INPUT-BLOCK-START (POP #:G0))
; (IRONCLAD::OUTPUT-BLOCK (POP #:G0))
; (IRONCLAD::OUTPUT-BLOCK-START (POP #:G0)))
; (DECLARE
; (SB-C::CONSTANT-VALUE IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK
; IRONCLAD::INPUT-BLOCK-START IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START))
; (DECLARE (SB-C::NO-COMPILER-MACRO IRONCLAD::COPY-BLOCK))
; (BLOCK IRONCLAD::COPY-BLOCK (COND (T IRONCLAD::FORM))))
;
; caught STYLE-WARNING:
; The variable BLOCK-LENGTH is defined but never used.
;
; caught STYLE-WARNING:
; The variable INPUT-BLOCK is defined but never used.
;
; caught STYLE-WARNING:
; The variable INPUT-BLOCK-START is defined but never used.
;
; caught STYLE-WARNING:
; The variable OUTPUT-BLOCK is defined but never used.
;
; caught STYLE-WARNING:
; The variable OUTPUT-BLOCK-START is defined but never used.
;
; caught STYLE-WARNING:
; The variable ENV is defined but never used.
; file: /usr/share/common-lisp/source/ironclad/src/common.lisp
; in: DEFINE-COMPILER-MACRO COPY-BLOCK
; (DEFINE-COMPILER-MACRO IRONCLAD::COPY-BLOCK
; (&WHOLE IRONCLAD::FORM &ENVIRONMENT IRONCLAD::ENV IRONCLAD:BLOCK-LENGTH
; IRONCLAD::INPUT-BLOCK IRONCLAD::INPUT-BLOCK-START IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START)
; (COND (T IRONCLAD::FORM)))
; --> EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO SB-C::%DEFINE-COMPILER-MACRO
; --> SB-INT:NAMED-LAMBDA FUNCTION SB-INT:NAMED-DS-BIND SB-INT:BINDING*
; ==>
; (LET* ((#:G0
; (SB-C::CHECK-DS-LIST (SB-C::COMPILER-MACRO-ARGS #:EXPR) 5 5
; '(# IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK
; IRONCLAD::INPUT-BLOCK-START
; IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START)))
; (IRONCLAD:BLOCK-LENGTH (POP #:G0))
; (IRONCLAD::INPUT-BLOCK (POP #:G0))
; (IRONCLAD::INPUT-BLOCK-START (POP #:G0))
; (IRONCLAD::OUTPUT-BLOCK (POP #:G0))
; (IRONCLAD::OUTPUT-BLOCK-START (POP #:G0)))
; (DECLARE
; (SB-C::CONSTANT-VALUE IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK
; IRONCLAD::INPUT-BLOCK-START IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START))
; (DECLARE (SB-C::NO-COMPILER-MACRO IRONCLAD::COPY-BLOCK))
; (BLOCK IRONCLAD::COPY-BLOCK (COND (T IRONCLAD::FORM))))
;
; caught STYLE-WARNING:
; The variable BLOCK-LENGTH is defined but never used.
;
; caught STYLE-WARNING:
; The variable INPUT-BLOCK is defined but never used.
;
; caught STYLE-WARNING:
; The variable INPUT-BLOCK-START is defined but never used.
;
; caught STYLE-WARNING:
; The variable OUTPUT-BLOCK is defined but never used.
;
; caught STYLE-WARNING:
; The variable OUTPUT-BLOCK-START is defined but never used.
; --> EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO SB-C::%DEFINE-COMPILER-MACRO
; --> SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA (COMPILER-MACRO IRONCLAD::COPY-BLOCK)
; (#:EXPR IRONCLAD::ENV &AUX (IRONCLAD::FORM #:EXPR))
; (DECLARE
; (SB-C::LAMBDA-LIST
; (IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK
; IRONCLAD::INPUT-BLOCK-START
; IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START)))
; (SB-INT:NAMED-DS-BIND (:MACRO IRONCLAD::COPY-BLOCK
; . DEFINE-COMPILER-MACRO)
; (IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK
; IRONCLAD::INPUT-BLOCK-START
; IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START)
; (SB-C::COMPILER-MACRO-ARGS #:EXPR)
; (DECLARE
; (SB-C::CONSTANT-VALUE IRONCLAD:BLOCK-LENGTH IRONCLAD::INPUT-BLOCK
; IRONCLAD::INPUT-BLOCK-START
; IRONCLAD::OUTPUT-BLOCK
; IRONCLAD::OUTPUT-BLOCK-START)
; (SB-C::NO-COMPILER-MACRO IRONCLAD::COPY-BLOCK))
; (BLOCK IRONCLAD::COPY-BLOCK (COND (T IRONCLAD::FORM)))))
;
; caught STYLE-WARNING:
; The variable ENV is defined but never used.
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/common-tmpMQ8L07M8.fasl
; compilation finished in 0:00:00.756
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "ironclad/core" "src" "common">
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/cipher.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS CIPHER ...)
; processing (DEFCLASS STREAM-CIPHER ...)
; processing (DEFMETHOD ENCRYPT ...)
; processing (DEFMETHOD DECRYPT ...)
; processing (DEFUN ENCRYPT-IN-PLACE ...)
; processing (DEFUN DECRYPT-IN-PLACE ...)
; processing (DEFMACRO WITH-WORDS ...)
; processing (DEFCLASS 8-BYTE-BLOCK-MIXIN ...)
; processing (DEFCLASS 16-BYTE-BLOCK-MIXIN ...)
; processing (DEFCLASS 32-BYTE-BLOCK-MIXIN ...)
; processing (DEFCLASS 64-BYTE-BLOCK-MIXIN ...)
; processing (DEFCLASS 128-BYTE-BLOCK-MIXIN ...)
; processing (DEFMACRO DEFCIPHER ...)
; processing (DEFMACRO DEFINE-BLOCK-ENCRYPTOR ...)
; processing (DEFMACRO DEFINE-BLOCK-DECRYPTOR ...)
; processing (DEFMACRO DEFINE-STREAM-CRYPTOR ...)
; processing (DEFMETHOD VERIFY-KEY ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCLASS CIPHER-INFO ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFUN %FIND-CIPHER ...)
; processing (DEFUN (SETF %FIND-CIPHER) ...)
; processing (DEFMETHOD KEY-LENGTHS ...)
; processing (DEFMETHOD KEY-LENGTHS ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFMETHOD BLOCK-LENGTH ...)
; processing (DEFUN LIST-ALL-CIPHERS ...)
; processing (DEFUN CIPHER-SUPPORTED-P ...)
; processing (DEFUN ACCEPTABLE-KEY-LENGTHS* ...)
; processing (DEFUN ACCEPTABLE-KEY-LENGTHS ...)
; processing (DEFUN GENERATE-KEY-VERIFIER-METHODS ...)
; processing (DEFUN GENERATE-COMMON-CIPHER-METHODS ...)
; processing (DEFUN GENERATE-BLOCK-CIPHER-FORMS ...)
; processing (DEFUN GENERATE-STREAM-CIPHER-FORMS ...)
; processing (DEFUN %DEFCIPHER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/cipher-tmp9HFLKKLP.fasl
; compilation finished in 0:00:00.436
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/padding.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS PADDING ...)
; processing (DEFCLASS PKCS7-PADDING ...)
; processing (DEFMETHOD ADD-PADDING-BYTES ...)
; processing (DEFMETHOD COUNT-PADDING-BYTES ...)
; processing (DEFCLASS ANSI-X923-PADDING ...)
; processing (DEFMETHOD ADD-PADDING-BYTES ...)
; processing (DEFMETHOD COUNT-PADDING-BYTES ...)
; processing (DEFCLASS ISO-7816-4-PADDING ...)
; processing (DEFMETHOD ADD-PADDING-BYTES ...)
; processing (DEFMETHOD COUNT-PADDING-BYTES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/padding-tmpEHVBI5QP.fasl
; compilation finished in 0:00:00.152
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/make-cipher.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFUN VALID-MODE-FOR-BLOCK-CIPHER-P ...)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFMETHOD VALID-MODE-FOR-CIPHER-P ...)
; processing (DEFUN MAKE-MODE-FOR-CIPHER ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFUN %BLOCK-CIPHER-P ...)
; processing (DEFUN FIND-CIPHER-OR-LOSE ...)
; processing (DEFUN VALIDATE-PARAMETERS-FOR-CIPHER-INFO ...)
; processing (DEFUN MAKE-CIPHER ...)
; processing (DEFINE-COMPILER-MACRO MAKE-CIPHER ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/make-cipher-tmp7ACGYN6Z.fasl
; compilation finished in 0:00:00.224
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/modes.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS ENCRYPTION-MODE ...)
; processing (DEFCLASS PADDED-MODE ...)
; processing (DEFCLASS ECB-MODE ...)
; processing (DEFCLASS STREAM-MODE ...)
; processing (DEFCLASS INITITIALIZATION-VECTOR-MIXIN ...)
; processing (DEFCLASS CBC-MODE ...)
; processing (DEFCLASS OFB-MODE ...)
; processing (DEFCLASS CFB-MODE ...)
; processing (DEFCLASS CFB8-MODE ...)
; processing (DEFCLASS CTR-MODE ...)
; processing (DEFMETHOD PRINT-OBJECT ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFVAR *SUPPORTED-MODES* ...)
; processing (DEFUN MODE-SUPPORTED-P ...)
; processing (DEFUN LIST-ALL-MODES ...)
; processing (DEFMETHOD ENCRYPT-MESSAGE ...)
; processing (DEFMETHOD DECRYPT-MESSAGE ...)
; processing (DEFUN INCREMENT-COUNTER-BLOCK ...)
; processing (DECLAIM (INLINE INCREMENT-COUNTER-BLOCK-1))
; processing (DEFUN INCREMENT-COUNTER-BLOCK-1 ...)
; processing (DEFUN DECREMENT-COUNTER-BLOCK ...)
; processing (MACROLET (# #) ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/modes.lisp
; in: DEFINE-MODE-FUNCTION MODE-CRYPT
; (IRONCLAD::DEFINE-MODE-FUNCTION IRONCLAD::MODE-CRYPT IRONCLAD::MESSAGE-LENGTH)
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET SETF SETQ THE
; ==>
; (- 128
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 128))
;
; 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: 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED 128)
; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING)
; (+ IRONCLAD::N-BYTES-PROCESSED 128))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET SETF SETQ THE
; ==>
; (- 64
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 64))
;
; 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: 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED 64)
; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING)
; (+ IRONCLAD::N-BYTES-PROCESSED 64))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET SETF SETQ THE
; ==>
; (- 32
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 32))
;
; 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: 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED 32)
; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING)
; (+ IRONCLAD::N-BYTES-PROCESSED 32))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET SETF SETQ THE
; ==>
; (- 16
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 16))
;
; 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: 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED 16)
; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING)
; (+ IRONCLAD::N-BYTES-PROCESSED 16))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET SETF SETQ THE
; ==>
; (- 8
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0 8))
;
; 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: 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED 8)
; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING)
; (+ IRONCLAD::N-BYTES-PROCESSED 8))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET SETF SETQ THE
; ==>
; (- 128
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 128))
;
; 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: 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER
; ==>
; (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'IRONCLAD::MODE-CRYPT-FUNCTIONS 'NIL
; (LIST (FIND-CLASS 'IRONCLAD::128-BYTE-BLOCK-MIXIN)
; (FIND-CLASS 'IRONCLAD::CBC-MODE))
; '(IRONCLAD::CIPHER IRONCLAD::MODE)
; (LIST* :FUNCTION
; (LET* ((SB-PCL::FMF #) (SB-PCL::MF #))
; (SETF # #)
; SB-PCL::MF)
; '(SB-PCL::PLIST (:ARG-INFO (2))
; SB-PCL::SIMPLE-NEXT-METHOD-CALL T))
; (SB-C:SOURCE-LOCATION))
;
; caught STYLE-WARNING:
; Call to IRONCLAD::COPY-BLOCK could not be inlined because its source code was
; not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in
; effect to save function definitions for inlining.
;
; caught STYLE-WARNING:
; Call to IRONCLAD::XOR-BLOCK could not be inlined because its source code was
; not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in
; effect to save function definitions for inlining.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED 128)
; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING)
; (+ IRONCLAD::N-BYTES-PROCESSED 128))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET SETF SETQ THE
; ==>
; (- 64
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 64))
;
; 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: 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED 64)
; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING)
; (+ IRONCLAD::N-BYTES-PROCESSED 64))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET SETF SETQ THE
; ==>
; (- 32
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 32))
;
; 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: 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED 32)
; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING)
; (+ IRONCLAD::N-BYTES-PROCESSED 32))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET SETF SETQ THE
; ==>
; (- 16
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0
; 16))
;
; 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: 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED 16)
; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING)
; (+ IRONCLAD::N-BYTES-PROCESSED 16))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET SETF SETQ THE
; ==>
; (- 8
; (IRONCLAD::COUNT-PADDING-BYTES IRONCLAD::PADDING IRONCLAD::TEMP-BLOCK 0 8))
;
; 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: 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 . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 VALUES IRONCLAD::MODE-LAMBDA LAMBDA
; --> FUNCTION LET LET IF LET
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED 8)
; (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; ==>
; (VALUES (+ IRONCLAD::N-BYTES-PROCESSED IRONCLAD::N-BYTES-REMAINING)
; (+ IRONCLAD::N-BYTES-PROCESSED 8))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN
; --> UNLESS IF TYPEP
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE
; ==>
; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN
; --> IF PROGN INCF SETQ THE
; ==>
; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN
; --> UNLESS IF TYPEP
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE
; ==>
; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN
; --> IF PROGN INCF SETQ THE
; ==>
; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN
; --> UNLESS IF TYPEP
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE
; ==>
; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN
; --> IF PROGN INCF SETQ THE
; ==>
; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN
; --> UNLESS IF TYPEP
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE
; ==>
; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN
; --> IF PROGN INCF SETQ THE
; ==>
; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN
; --> UNLESS IF TYPEP
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE
; ==>
; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION
; --> SYMBOL-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 FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK
; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN
; --> IF PROGN INCF SETQ THE
; ==>
; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; processing (DEFMETHOD ENCRYPTED-MESSAGE-LENGTH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/modes-tmpROQG4ZG5.fasl
; compilation finished in 0:00:03.308
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "ironclad/core" "src" "ciphers" "modes">
; compiling file "/usr/share/common-lisp/source/ironclad/src/digests/digest.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL) ...)
; processing (DEFTYPE BUFFER-INDEX ...)
; processing (DEFUN UPDATE-DIGEST-FROM-STREAM ...)
; processing (DECLAIM (INLINE UPDATE-DIGEST-FROM-VECTOR))
; processing (DEFUN UPDATE-DIGEST-FROM-VECTOR ...)
; processing (DECLAIM (INLINE STORE-DATA-LENGTH))
; processing (DEFUN STORE-DATA-LENGTH ...)
; processing (DEFMACRO DEFINE-DIGEST-REGISTERS ...)
; processing (DEFMACRO DEFINE-DIGEST-UPDATER ...)
; processing (DEFMACRO DEFINE-DIGEST-FINALIZER ...)
; processing (DEFSTRUCT (MDX # ...) ...)
; processing (DECLAIM (INLINE MDX-UPDATER))
; processing (DEFUN MDX-UPDATER ...)
; processing (DECLAIM (NOTINLINE MDX-UPDATER))
; processing (DECLAIM (NOTINLINE MAKE-DIGEST))
; processing (DEFMETHOD DIGEST-FILE ...)
; processing (DEFMETHOD DIGEST-FILE ...)
; processing (DEFMETHOD DIGEST-FILE ...)
; processing (DEFMETHOD DIGEST-STREAM ...)
; processing (DEFMETHOD DIGEST-STREAM ...)
; processing (DEFMETHOD DIGEST-STREAM ...)
; processing (DEFMETHOD DIGEST-SEQUENCE ...)
; processing (DEFMETHOD DIGEST-SEQUENCE ...)
; processing (DEFUN MAKE-DIGEST ...)
; processing (DEFUN DIGESTP ...)
; processing (DEFUN LIST-ALL-DIGESTS ...)
; processing (DEFUN DIGEST-SUPPORTED-P ...)
; processing (DEFMETHOD DIGEST-LENGTH ...)
; processing (DEFMETHOD DIGEST-LENGTH ...)
; processing (DEFMETHOD UPDATE-DIGEST ...)
; processing (DEFUN OPTIMIZED-MAKER-NAME ...)
; processing (DEFMACRO DEFDIGEST ...)
; processing (DEFINE-COMPILER-MACRO MAKE-DIGEST ...)
; processing (DEFUN MAYBE-EXPAND-ONE-SHOT-CALL ...)
; processing (DEFINE-COMPILER-MACRO DIGEST-SEQUENCE ...)
; processing (DEFINE-COMPILER-MACRO DIGEST-STREAM ...)
; processing (DEFINE-COMPILER-MACRO DIGEST-FILE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/digests/digest-tmpL8QH2EDP.fasl
; compilation finished in 0:00:00.620
; compiling file "/usr/share/common-lisp/source/ironclad/src/macs/mac.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS MAC ...)
; processing (DEFUN MACP ...)
; processing (DEFUN LIST-ALL-MACS ...)
; processing (DEFUN MAC-SUPPORTED-P ...)
; processing (DEFMACRO DEFMAC ...)
; processing (DEFUN MAKE-MAC ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/macs/mac-tmpGMP33JVN.fasl
; compilation finished in 0:00:00.060
; compiling file "/usr/share/common-lisp/source/ironclad/src/prng/prng.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFVAR *PRNG* ...)
; processing (DEFUN LIST-ALL-PRNGS ...)
; processing (DEFMETHOD MAKE-PRNG ...)
; processing (DEFUN RANDOM-DATA ...)
; processing (DEFUN READ-OS-RANDOM-SEED ...)
; processing (DEFUN RANDOM-BITS ...)
; processing (DEFUN STRONG-RANDOM ...)
; processing (DEFUN OS-RANDOM-SEED ...)
; processing (DEFUN READ-SEED ...)
; processing (DEFUN WRITE-SEED ...)
; processing (DEFUN FEED-FIFO ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/prng/prng-tmpYZLZO5XO.fasl
; compilation finished in 0:00:00.140
; compiling file "/usr/share/common-lisp/source/ironclad/src/prng/os-prng.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFPARAMETER *OS-PRNG-STREAM* ...)
; processing (DEFPARAMETER *OS-PRNG-STREAM-LOCK* ...)
; processing (DEFCLASS OS-PRNG ...)
; processing (DEFMETHOD PRNG-RANDOM-DATA ...)
; file: /usr/share/common-lisp/source/ironclad/src/prng/os-prng.lisp
; in: DEFMETHOD PRNG-RANDOM-DATA (T OS-PRNG)
; (BORDEAUX-THREADS:WITH-LOCK-HELD (IRONCLAD::*OS-PRNG-STREAM-LOCK*)
; (UNLESS
; (AND IRONCLAD::*OS-PRNG-STREAM*
; (OPEN-STREAM-P IRONCLAD::*OS-PRNG-STREAM*))
; (SETF IRONCLAD::*OS-PRNG-STREAM*
; (OPEN #P"/dev/urandom" :ELEMENT-TYPE '#)))
; (READ-SEQUENCE IRONCLAD::SEQ IRONCLAD::*OS-PRNG-STREAM*))
; --> IF
; ==>
; NIL
;
; caught STYLE-WARNING:
; This is not a REAL:
; NIL
; See also:
; The SBCL Manual, Node "Handling of Types"
; processing (DEFMETHOD MAKE-PRNG ...)
; processing (SETF *PRNG* ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/prng/os-prng-tmpHJEGXRNO.fasl
; compilation finished in 0:00:00.044
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "ironclad/core" "src" "prng" "os-prng">
; compiling file "/usr/share/common-lisp/source/ironclad/src/math.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN EGCD ...)
; file: /usr/share/common-lisp/source/ironclad/src/math.lisp
; in: DEFUN EGCD
; (= IRONCLAD::C 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (FLOOR IRONCLAD::D IRONCLAD::C)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::Q IRONCLAD::C)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The second argument is a REAL, not a FLOAT.
; (- IRONCLAD::D (* IRONCLAD::Q IRONCLAD::C))
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a 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.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second 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 DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (* IRONCLAD::Q IRONCLAD::U_C)
;
; 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).
; (- IRONCLAD::U_D (* IRONCLAD::Q IRONCLAD::U_C))
;
; 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).
; (* IRONCLAD::Q IRONCLAD::V_C)
;
; 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).
; (- IRONCLAD::V_D (* IRONCLAD::Q IRONCLAD::V_C))
;
; 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).
; (>= IRONCLAD::A 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (>= IRONCLAD::B 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (* IRONCLAD::Q IRONCLAD::C)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (- IRONCLAD::D (* IRONCLAD::Q IRONCLAD::C))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL . #1#), not a (VALUES SINGLE-FLOAT . #1#).
; etc.
; (* IRONCLAD::Q IRONCLAD::U_C)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (- IRONCLAD::U_D (* IRONCLAD::Q IRONCLAD::U_C))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT . #1#).
; etc.
; (* IRONCLAD::Q IRONCLAD::V_C)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (- IRONCLAD::V_D (* IRONCLAD::Q IRONCLAD::V_C))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT . #1#).
; etc.
; processing (DEFUN JACOBI ...)
; file: /usr/share/common-lisp/source/ironclad/src/math.lisp
; in: DEFUN JACOBI
; (EVENP IRONCLAD::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (EVENP IRONCLAD::B)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (LOGAND IRONCLAD::A 7)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (MINUSP IRONCLAD::B)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (- IRONCLAD::B)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER * -1), not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (signed-byte 32) arithmetic (cost 2) because:
; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 32).
; The result is a (VALUES (INTEGER 1) . #1#), not a (VALUES
; (SIGNED-BYTE 32) . #1#).
; (MINUSP IRONCLAD::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (EVENP IRONCLAD::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (LOGAND IRONCLAD::B 7)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (LOGAND IRONCLAD::A IRONCLAD::B 2)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (ABS IRONCLAD::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER * -1), not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (signed-byte 32) arithmetic (cost 2) because:
; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 32).
; The result is a (VALUES (INTEGER 1) . #1#), not a (VALUES
; (SIGNED-BYTE 32) . #1#).
; (ASH IRONCLAD::A -1)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 32)
; . #2#).
; etc.
; (> IRONCLAD::B 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (ASH IRONCLAD::B -1)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 32)
; . #2#).
; etc.
; (ABS IRONCLAD::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER * -1), not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (signed-byte 32) arithmetic (cost 2) because:
; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 32).
; The result is a (VALUES (INTEGER 1) . #1#), not a (VALUES
; (SIGNED-BYTE 32) . #1#).
; processing (DEFUN POWER-MOD-TAB ...)
; file: /usr/share/common-lisp/source/ironclad/src/math.lisp
; in: DEFUN POWER-MOD-TAB
; (1- IRONCLAD::K)
;
; 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).
; (* IRONCLAD::B IRONCLAD::B)
;
; 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 REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (MOD (* IRONCLAD::B IRONCLAD::B) IRONCLAD::M)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::BI IRONCLAD::BB)
;
; 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 REAL, 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 REAL, 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 (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a REAL, 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 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 NUMBER, not a DOUBLE-FLOAT.
; The second argument is a REAL, 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 (COMPLEX DOUBLE-FLOAT).
; The second argument is a REAL, 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).
; (MOD (* IRONCLAD::BI IRONCLAD::BB) IRONCLAD::M)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (1- IRONCLAD::K)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (ASH 1 (1- IRONCLAD::K))
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 2) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #2#).
; etc.
; (* IRONCLAD::B IRONCLAD::B)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (* IRONCLAD::BI IRONCLAD::BB)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; processing (DEFUN POWER-MOD ...)
; file: /usr/share/common-lisp/source/ironclad/src/math.lisp
; in: DEFUN POWER-MOD
; (ZEROP IRONCLAD::E)
;
; 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.
; (MOD 1 IRONCLAD::M)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::RES IRONCLAD::B)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, 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 REAL, 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 REAL, 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 REAL, 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 REAL, 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 REAL, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a (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).
; (MOD (* IRONCLAD::RES IRONCLAD::B) IRONCLAD::M)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::B IRONCLAD::B)
;
; 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 REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (MOD (* IRONCLAD::B IRONCLAD::B) IRONCLAD::M)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (LDB (BYTE IRONCLAD::TMP IRONCLAD::S) IRONCLAD::E)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; (* IRONCLAD::RES (SVREF IRONCLAD::TAB (ASH IRONCLAD::U -1)))
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, 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 REAL, 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 REAL, 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 REAL, 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 REAL, 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 REAL, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a (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).
; (MOD (* IRONCLAD::RES (SVREF IRONCLAD::TAB (ASH IRONCLAD::U -1))) IRONCLAD::M)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::RES IRONCLAD::RES)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a 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.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second 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 DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::RES IRONCLAD::RES)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a 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.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second 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 DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::RES IRONCLAD::RES)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0))
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0))
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (DECF IRONCLAD::I)
; --> THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -1) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (- IRONCLAD::I IRONCLAD::K)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER -7) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; 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 (INTEGER -7) . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (1+ (- IRONCLAD::I IRONCLAD::K))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER -7), not a FIXNUM.
; The result is a (VALUES (INTEGER -6) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER -7), not a FIXNUM.
; The result is a (VALUES (INTEGER -6) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (- IRONCLAD::I IRONCLAD::S)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (1+ (- IRONCLAD::I IRONCLAD::S))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (DOTIMES (IRONCLAD::H IRONCLAD::TMP)
; (SETQ IRONCLAD::RES (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M)))
; --> BLOCK LET TAGBODY UNLESS IF >=
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a INTEGER, 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 INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (* IRONCLAD::RES IRONCLAD::RES)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0))
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0))
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (DOTIMES (IRONCLAD::H IRONCLAD::TMP)
; (SETQ IRONCLAD::RES (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M)))
; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (ASH IRONCLAD::U -1)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 32).
; etc.
; (* IRONCLAD::RES (SVREF IRONCLAD::TAB (ASH IRONCLAD::U -1)))
;
; 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 NUMBER, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (INCF IRONCLAD::S)
; --> THE
; ==>
; (+ 1 IRONCLAD::S)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (* IRONCLAD::RES IRONCLAD::B)
;
; 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 NUMBER, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (ASH IRONCLAD::E -1)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 32)
; . #2#).
; etc.
; (* IRONCLAD::B IRONCLAD::B)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; processing (DEFUN MILLER-RABIN-DECOMPOSITION ...)
; file: /usr/share/common-lisp/source/ironclad/src/math.lisp
; in: DEFUN MILLER-RABIN-DECOMPOSITION
; (ASH IRONCLAD::N -1)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 32)
; . #2#).
; etc.
; (1+ IRONCLAD::K)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES (INTEGER 2) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES (INTEGER 2) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (ASH IRONCLAD::Q -1)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 32)
; . #2#).
; etc.
; processing (DEFUN MILLER-RABIN-KERNEL ...)
; file: /usr/share/common-lisp/source/ironclad/src/math.lisp
; in: DEFUN MILLER-RABIN-KERNEL
; (- IRONCLAD::N 2)
;
; 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).
; (+ (IRONCLAD:STRONG-RANDOM (- IRONCLAD::N 2)) 2)
;
; 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.
; (1- IRONCLAD::N)
;
; 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).
; (= IRONCLAD::Y 1)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (= IRONCLAD::Y IRONCLAD::MINUS1)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, 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 REAL, 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 REAL, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (= IRONCLAD::J IRONCLAD::K)
;
; 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.
; (= IRONCLAD::Y IRONCLAD::MINUS1)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, 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 REAL, 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 REAL, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (= IRONCLAD::Y 1)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (- IRONCLAD::N 2)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (+ (IRONCLAD:STRONG-RANDOM (- IRONCLAD::N 2)) 2)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (1- IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (= IRONCLAD::Y IRONCLAD::MINUS1)
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: forced to do full call
; unable to do #1=inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do #1# (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
; (1+ IRONCLAD::J)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES (INTEGER 2) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES (INTEGER 2) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; processing (DEFUN LUCAS-SEQUENCE ...)
; file: /usr/share/common-lisp/source/ironclad/src/math.lisp
; in: DEFUN LUCAS-SEQUENCE
; (* IRONCLAD::UH IRONCLAD::VL)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a 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.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second 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 DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (1- (* IRONCLAD::UH IRONCLAD::VL))
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (MOD (1- (* IRONCLAD::UH IRONCLAD::VL)) IRONCLAD::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::VH IRONCLAD::VL)
;
; 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 REAL, 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 REAL, 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 (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a REAL, 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 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 NUMBER, not a DOUBLE-FLOAT.
; The second argument is a REAL, 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 (COMPLEX DOUBLE-FLOAT).
; The second argument is a REAL, 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).
; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P)
;
; 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).
; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::UH IRONCLAD::VL)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a 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.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second 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 DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (MOD (* IRONCLAD::UH IRONCLAD::VL) IRONCLAD::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::VL IRONCLAD::VL)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a 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.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second 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 DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (- (* IRONCLAD::VL IRONCLAD::VL) 2)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FLOAT.
; (MOD (- (* IRONCLAD::VL IRONCLAD::VL) 2) IRONCLAD::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (RATIONAL -2) (DOUBLE-FLOAT -2.0d0)
; (SINGLE-FLOAT -2.0)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (RATIONAL -2) (DOUBLE-FLOAT -2.0d0)
; (SINGLE-FLOAT -2.0)), not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (RATIONAL -2) (DOUBLE-FLOAT -2.0d0)
; (SINGLE-FLOAT -2.0)), not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::UH IRONCLAD::VH)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, 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 REAL, 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 REAL, 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 REAL, 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 REAL, 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 REAL, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a (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).
; (MOD (* IRONCLAD::UH IRONCLAD::VH) IRONCLAD::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::VH IRONCLAD::VL)
;
; 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 REAL, 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 REAL, 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 (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a REAL, 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 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 NUMBER, not a DOUBLE-FLOAT.
; The second argument is a REAL, 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 (COMPLEX DOUBLE-FLOAT).
; The second argument is a REAL, 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).
; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P)
;
; 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).
; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::VH IRONCLAD::VH)
;
; 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 REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a REAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a REAL.
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (- (* IRONCLAD::VH IRONCLAD::VH) 2)
;
; 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).
; (MOD (- (* IRONCLAD::VH IRONCLAD::VH) 2) IRONCLAD::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::UH IRONCLAD::VL)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a 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.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second 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 DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (1- (* IRONCLAD::UH IRONCLAD::VL))
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (MOD (1- (* IRONCLAD::UH IRONCLAD::VL)) IRONCLAD::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::VH IRONCLAD::VL)
;
; 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 REAL, 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 REAL, 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 (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
; The second argument is a REAL, 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 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 NUMBER, not a DOUBLE-FLOAT.
; The second argument is a REAL, 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 (COMPLEX DOUBLE-FLOAT).
; The second argument is a REAL, 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).
; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P)
;
; 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).
; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::VL IRONCLAD::VL)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
; The second argument is a REAL, not a 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.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second 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 DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; (- (* IRONCLAD::VL IRONCLAD::VL) 2)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FLOAT.
; (MOD (- (* IRONCLAD::VL IRONCLAD::VL) 2) IRONCLAD::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (RATIONAL -2) (DOUBLE-FLOAT -2.0d0)
; (SINGLE-FLOAT -2.0)), not a DOUBLE-FLOAT.
; The second argument is a REAL, not a (OR FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (RATIONAL -2) (DOUBLE-FLOAT -2.0d0)
; (SINGLE-FLOAT -2.0)), not a SINGLE-FLOAT.
; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (RATIONAL -2) (DOUBLE-FLOAT -2.0d0)
; (SINGLE-FLOAT -2.0)), not a INTEGER.
; The second argument is a REAL, not a INTEGER.
; (* IRONCLAD::UH IRONCLAD::VL)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (1- (* IRONCLAD::UH IRONCLAD::VL))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (* IRONCLAD::VH IRONCLAD::VL)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES REAL . #1#), not a (VALUES SINGLE-FLOAT . #1#).
; etc.
; (* IRONCLAD::VL IRONCLAD::VL)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0))
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0))
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (- (* IRONCLAD::VL IRONCLAD::VL) 2)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL -2) (DOUBLE-FLOAT -2.0d0)
; (SINGLE-FLOAT -2.0))
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL -2) (DOUBLE-FLOAT -2.0d0)
; (SINGLE-FLOAT -2.0))
; . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (* IRONCLAD::UH IRONCLAD::VH)
;
; 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 NUMBER, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (* IRONCLAD::VH IRONCLAD::VL)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES REAL . #1#), not a (VALUES SINGLE-FLOAT . #1#).
; etc.
; (* IRONCLAD::VH IRONCLAD::VH)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (- (* IRONCLAD::VH IRONCLAD::VH) 2)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES REAL . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (* IRONCLAD::UH IRONCLAD::VL)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (1- (* IRONCLAD::UH IRONCLAD::VL))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (* IRONCLAD::VH IRONCLAD::VL)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES REAL . #1#), not a (VALUES SINGLE-FLOAT . #1#).
; etc.
; (DOTIMES (IRONCLAD::J IRONCLAD::S)
; (SETQ IRONCLAD::UH (MOD (* IRONCLAD::UH IRONCLAD::VL) IRONCLAD::N))
; (SETQ IRONCLAD::VL (MOD (- # 2) IRONCLAD::N)))
; --> BLOCK LET TAGBODY UNLESS IF >=
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; etc.
; (* IRONCLAD::UH IRONCLAD::VL)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES REAL . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (* IRONCLAD::VL IRONCLAD::VL)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES
; (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0))
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a REAL, not a (UNSIGNED-BYTE 32).
; The second argument is a REAL, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0))
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (- (* IRONCLAD::VL IRONCLAD::VL) 2)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL -2) (DOUBLE-FLOAT -2.0d0)
; (SINGLE-FLOAT -2.0))
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)
; (RATIONAL 0)), not a FIXNUM.
; The result is a (VALUES
; (OR (RATIONAL -2) (DOUBLE-FLOAT -2.0d0)
; (SINGLE-FLOAT -2.0))
; . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (DOTIMES (IRONCLAD::J IRONCLAD::S)
; (SETQ IRONCLAD::UH (MOD (* IRONCLAD::UH IRONCLAD::VL) IRONCLAD::N))
; (SETQ IRONCLAD::VL (MOD (- # 2) IRONCLAD::N)))
; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (ASH IRONCLAD::K -1)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #2#), not a (VALUES (UNSIGNED-BYTE 32)
; . #2#).
; etc.
; (1+ IRONCLAD::S)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; processing (DEFUN PRIMEP-LUCAS ...)
; file: /usr/share/common-lisp/source/ironclad/src/math.lisp
; in: DEFUN PRIMEP-LUCAS
; (ZEROP (IRONCLAD::LUCAS-SEQUENCE (1+ IRONCLAD::N) IRONCLAD::B IRONCLAD::N))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
;
; note: unable to open code because: The operands might not be the same type.
; (* IRONCLAD::B IRONCLAD::B)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER 3), not a FIXNUM.
; The second argument is a (INTEGER 3), not a FIXNUM.
; The result is a (VALUES (INTEGER 9) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (INTEGER 3), not a (UNSIGNED-BYTE 32).
; The second argument is a (INTEGER 3), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER 9) . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (- (* IRONCLAD::B IRONCLAD::B) 4)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 9), not a FIXNUM.
; The result is a (VALUES (INTEGER 5) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 9), not a FIXNUM.
; The result is a (VALUES (INTEGER 5) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (INCF IRONCLAD::B)
; --> THE
; ==>
; (+ 1 IRONCLAD::B)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 3), not a FIXNUM.
; The result is a (VALUES (INTEGER 4) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 3), not a FIXNUM.
; The result is a (VALUES (INTEGER 4) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (1+ IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; processing (DEFUN MODULAR-INVERSE ...)
; file: /usr/share/common-lisp/source/ironclad/src/math.lisp
; in: DEFUN MODULAR-INVERSE
; (EVENP IRONCLAD::N)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; etc.
; (EVENP IRONCLAD::MODULUS)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; etc.
; (* IRONCLAD::Q IRONCLAD::U2)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (DECF IRONCLAD::U1 (* IRONCLAD::Q IRONCLAD::U2))
; --> THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (MINUSP IRONCLAD::INVERSE)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (* IRONCLAD::N IRONCLAD::INVERSE)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 32).
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; processing (DEFUN MODULAR-INVERSE-WITH-BLINDING ...)
; file: /usr/share/common-lisp/source/ironclad/src/math.lisp
; in: DEFUN MODULAR-INVERSE-WITH-BLINDING
; (+ 1 (IRONCLAD:STRONG-RANDOM (- IRONCLAD::MODULUS 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.
; (GCD IRONCLAD::B IRONCLAD::MODULUS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a INTEGER, not a (OR (INTEGER -536870912 -1)
; (INTEGER 1 536870911)).
; The second argument is a (INTEGER 1), not a (OR (INTEGER -536870912 -1)
; (INTEGER 1 536870911)).
; (- IRONCLAD::MODULUS 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (+ 1 (IRONCLAD:STRONG-RANDOM (- IRONCLAD::MODULUS 1)))
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (* IRONCLAD::N IRONCLAD::B)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (* IRONCLAD::Y IRONCLAD::B)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; processing (DEFUN EXPT-MOD ...)
; file: /usr/share/common-lisp/source/ironclad/src/math.lisp
; in: DEFUN EXPT-MOD
; (ASSERT (<= 0 IRONCLAD::EXPONENT IRONCLAD::MODULUS))
; --> LET WHEN IF <=
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a INTEGER, 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 INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; (ASSERT (> IRONCLAD::MODULUS 1))
; --> LET WHEN IF
; ==>
; (> #:TEMP5 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (* IRONCLAD::R0 IRONCLAD::R1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (* IRONCLAD::R1 IRONCLAD::R1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (* IRONCLAD::R0 IRONCLAD::R1)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (* IRONCLAD::R0 IRONCLAD::R0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; processing (DEFUN EXPT-MOD/UNSAFE ...)
; processing (DEFCONST +SMALL-PRIMES+ ...)
; processing (DEFCONSTANT +LAST-SMALL-PRIME+ ...)
; processing (DEFUN GENERATE-SMALL-PRIMES ...)
; processing (DEFPARAMETER *NUMBER-OF-MILLER-RABIN-TESTS* ...)
; processing (DEFUN PRIME-P ...)
; file: /usr/share/common-lisp/source/ironclad/src/math.lisp
; in: DEFUN PRIME-P
; (LOOP IRONCLAD::REPEAT IRONCLAD:*NUMBER-OF-MILLER-RABIN-TESTS*
; IRONCLAD::ALWAYS (IRONCLAD::MILLER-RABIN-KERNEL IRONCLAD::N IRONCLAD::Q
; IRONCLAD::K))
; --> LET CEILING
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (<= IRONCLAD::N IRONCLAD::+LAST-SMALL-PRIME+)
;
; 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.
; (LOOP IRONCLAD::REPEAT IRONCLAD:*NUMBER-OF-MILLER-RABIN-TESTS*
; IRONCLAD::ALWAYS (IRONCLAD::MILLER-RABIN-KERNEL IRONCLAD::N IRONCLAD::Q
; IRONCLAD::K))
; --> LET TAGBODY IF <=
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; --> LET TAGBODY IF DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; processing (DEFUN GENERATE-PRIME-IN-RANGE ...)
; processing (DEFUN GENERATE-PRIME ...)
; processing (DEFUN GENERATE-SAFE-PRIME ...)
; processing (DEFUN FIND-GENERATOR ...)
; processing (DEFUN FIND-SUBGROUP-GENERATOR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/math-tmpLNAWKPET.fasl
; compilation finished in 0:00:00.700
; compiling file "/usr/share/common-lisp/source/ironclad/src/octet-stream.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DEFCLASS OCTET-STREAM ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFMACRO DEFINE-STREAM-READ-SEQUENCE ...)
; processing (DEFMACRO DEFINE-STREAM-WRITE-SEQUENCE ...)
; processing (DEFCLASS OCTET-INPUT-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-READ-BYTE ...)
; processing (DEFINE-STREAM-READ-SEQUENCE OCTET-INPUT-STREAM ...)
; processing (DEFUN MAKE-OCTET-INPUT-STREAM ...)
; processing (DEFMACRO WITH-OCTET-INPUT-STREAM ...)
; processing (DEFCLASS OCTET-OUTPUT-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; processing (DEFINE-STREAM-WRITE-SEQUENCE OCTET-OUTPUT-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-CLEAR-OUTPUT ...)
; processing (DEFUN GET-OUTPUT-STREAM-OCTETS ...)
; processing (DEFUN MAKE-OCTET-OUTPUT-STREAM ...)
; processing (DEFMACRO WITH-OCTET-OUTPUT-STREAM ...)
; processing (DEFCLASS DIGESTING-STREAM ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFUN MAKE-DIGESTING-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; processing (DEFINE-STREAM-WRITE-SEQUENCE DIGESTING-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-CLEAR-OUTPUT ...)
; processing (DEFMETHOD PRODUCE-DIGEST ...)
; processing (DEFUN EXECUTE-WITH-DIGESTING-STREAM ...)
; processing (DEFMACRO WITH-DIGESTING-STREAM ...)
; processing (DEFCLASS CRYPTING-STREAM ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFCLASS ENCRYPTING-INPUT-STREAM ...)
; processing (DEFCLASS ENCRYPTING-OUTPUT-STREAM ...)
; processing (DEFCLASS DECRYPTING-INPUT-STREAM ...)
; processing (DEFCLASS DECRYPTING-OUTPUT-STREAM ...)
; processing (DEFTYPE STREAM-DIRECTION ...)
; processing (DEFUN MAKE-ENCRYPTING-STREAM ...)
; processing (DEFUN MAKE-DECRYPTING-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-READ-BYTE ...)
; processing (DEFMETHOD SB-GRAY:STREAM-READ-BYTE ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; processing (DEFINE-STREAM-READ-SEQUENCE ENCRYPTING-INPUT-STREAM ...)
; processing (DEFINE-STREAM-READ-SEQUENCE DECRYPTING-INPUT-STREAM ...)
; processing (DEFINE-STREAM-WRITE-SEQUENCE ENCRYPTING-OUTPUT-STREAM ...)
; processing (DEFINE-STREAM-WRITE-SEQUENCE DECRYPTING-OUTPUT-STREAM ...)
; processing (DEFMACRO WITH-ENCRYPTING-STREAM ...)
; processing (DEFMACRO WITH-DECRYPTING-STREAM ...)
; processing (DEFCLASS AUTHENTICATING-STREAM ...)
; processing (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; processing (DEFUN MAKE-AUTHENTICATING-STREAM ...)
; processing (DEFMETHOD SB-GRAY:STREAM-WRITE-BYTE ...)
; processing (DEFINE-STREAM-WRITE-SEQUENCE AUTHENTICATING-STREAM ...)
; processing (DEFMETHOD PRODUCE-MAC ...)
; processing (DEFMACRO WITH-AUTHENTICATING-STREAM ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/octet-stream-tmpJAVYBOA5.fasl
; compilation finished in 0:00:00.812
; compiling file "/usr/share/common-lisp/source/ironclad/src/aead/aead.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS AEAD-MODE ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFUN AEADP ...)
; processing (DEFUN LIST-ALL-AUTHENTICATED-ENCRYPTION-MODES ...)
; processing (DEFUN AUTHENTICATED-ENCRYPTION-MODE-SUPPORTED-P ...)
; processing (DEFMACRO DEFAEAD ...)
; processing (DEFUN MAKE-AUTHENTICATED-ENCRYPTION-MODE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/aead/aead-tmp4JWQGV5Z.fasl
; compilation finished in 0:00:00.060
; compiling file "/usr/share/common-lisp/source/ironclad/src/kdf/kdf.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN LIST-ALL-KDFS ...)
; processing (DEFUN MAKE-KDF ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/kdf/kdf-tmpPQD2HT0O.fasl
; compilation finished in 0:00:00.052
; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/public-key.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN LIST-ALL-KEY-PAIR-KINDS ...)
; processing (DEFCLASS DISCRETE-LOGARITHM-GROUP ...)
; processing (DEFPARAMETER *SIGNATURE-NONCE-FOR-TEST* ...)
; processing (DEFUN OCTETS-TO-INTEGER ...)
; file: /usr/share/common-lisp/source/ironclad/src/public-key/public-key.lisp
; in: DEFUN OCTETS-TO-INTEGER
; (- IRONCLAD::END IRONCLAD::START)
;
; 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).
; (CEILING IRONCLAD::N-BITS 8)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (* 8 IRONCLAD::SIZE)
;
; 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
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
;
; note: unable to
; associate */(* /) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (- IRONCLAD::END IRONCLAD::N-BYTES)
;
; 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).
; (LOOP IRONCLAD::WITH
; IRONCLAD::SUM = 0
; IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM (- IRONCLAD::END
; IRONCLAD::N-BYTES) IRONCLAD::BELOW
; IRONCLAD::END
; DO ...)
; --> LET LET TAGBODY WHEN IF
; ==>
; (>= IRONCLAD::I #:LOOP-LIMIT-0)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second 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 DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (+ IRONCLAD::START IRONCLAD::N-BYTES)
;
; 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).
; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM IRONCLAD::START IRONCLAD::BELOW (+
; IRONCLAD::START
; IRONCLAD::N-BYTES)
; IRONCLAD::FOR IRONCLAD::J IRONCLAD::FROM 0 IRONCLAD::BY ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY WHEN IF
; ==>
; (>= IRONCLAD::I #:LOOP-LIMIT-1)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second 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 DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second 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 DOUBLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (LDB (BYTE IRONCLAD::N-BITS 0) IRONCLAD::SUM)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; (- IRONCLAD::END IRONCLAD::START)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT . #1#).
; etc.
; (* 8 IRONCLAD::SIZE)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (+ IRONCLAD::START IRONCLAD::N-BYTES)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT . #1#).
; etc.
; (ASH (AREF IRONCLAD::OCTET-VEC IRONCLAD::I) IRONCLAD::J)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 2) because:
; The second argument is a (OR (INTEGER 8) #2=(INTEGER 0 0)), not a (UNSIGNED-BYTE
; 29).
; The result is a (VALUES UNSIGNED-BYTE . #3=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #3#).
; unable to do #1# (cost 3) because:
; The second argument is a (OR (INTEGER 8) #2#), not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE . #3#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #3#).
; etc.
; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM IRONCLAD::START IRONCLAD::BELOW (+
; IRONCLAD::START
; IRONCLAD::N-BYTES)
; IRONCLAD::FOR IRONCLAD::J IRONCLAD::FROM 0 IRONCLAD::BY ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:LOOP-SUM-2 (ASH (AREF IRONCLAD::OCTET-VEC IRONCLAD::I) IRONCLAD::J))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES UNSIGNED-BYTE . #1#), not a (VALUES
; (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE
; ==>
; (+ IRONCLAD::J 8)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (INTEGER 8) #2=(INTEGER 0 0)), not a FIXNUM.
; The result is a (VALUES (OR (INTEGER 8 8) (INTEGER 16)) . #3=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #3#).
; unable to do #1# (cost 2) because:
; The first argument is a (OR (INTEGER 8) #2#), not a FIXNUM.
; The result is a (VALUES (OR (INTEGER 8 8) (INTEGER 16)) . #3#), not a (VALUES
; FIXNUM
; . #3#).
; etc.
; (- IRONCLAD::END IRONCLAD::N-BYTES)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER . #1#), not a (VALUES SINGLE-FLOAT . #1#).
; etc.
; (ASH IRONCLAD::SUM 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2=(&OPTIONAL)), not a (VALUES FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; (+ (ASH IRONCLAD::SUM 8) (AREF IRONCLAD::OCTET-VEC IRONCLAD::I))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; processing (DEFUN INTEGER-TO-OCTETS ...)
; file: /usr/share/common-lisp/source/ironclad/src/public-key/public-key.lisp
; in: DEFUN INTEGER-TO-OCTETS
; (LDB (BYTE IRONCLAD::N-BITS 0) BIGNUM)
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; (LDB (BYTE 8 BYTE) BIGNUM)
;
; note: unable to convert to inline logical operations because: not a word-sized integer
; (LDB (BYTE 8 (* IRONCLAD::I 8)) BIGNUM)
;
; note: unable to convert to inline logical operations because: not a word-sized integer
; processing (DEFUN MAYBE-INTEGERIZE ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/public-key-tmpH1FK4I19.fasl
; compilation finished in 0:00:00.120
; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/pkcs1.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN MGF ...)
; processing (DECLAIM (NOTINLINE OAEP-ENCODE))
; processing (DEFUN OAEP-ENCODE ...)
; processing (DEFUN OAEP-DECODE ...)
; processing (DECLAIM (NOTINLINE PSS-ENCODE))
; processing (DEFUN PSS-ENCODE ...)
; processing (DEFUN PSS-VERIFY ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/pkcs1-tmpOGMGFZE8.fasl
; compilation finished in 0:00:00.208
; compiling file "/usr/share/common-lisp/source/ironclad/src/public-key/elliptic-curve.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFGENERIC EC-POINT-ON-CURVE-P ...)
; processing (DEFGENERIC EC-POINT-EQUAL ...)
; processing (DEFGENERIC EC-DOUBLE ...)
; processing (DEFGENERIC EC-ADD ...)
; processing (DEFGENERIC EC-SCALAR-MULT ...)
; processing (DEFGENERIC EC-SCALAR-INV ...)
; processing (DEFGENERIC EC-ENCODE-SCALAR ...)
; processing (DEFGENERIC EC-DECODE-SCALAR ...)
; processing (DEFGENERIC EC-ENCODE-POINT ...)
; processing (DEFGENERIC EC-DECODE-POINT ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/public-key/elliptic-curve-tmpP2P3SY1J.fasl
; compilation finished in 0:00:00.016
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/aes.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST TE0 ...)
; processing (DEFCONST TE1 ...)
; processing (DEFCONST TE2 ...)
; processing (DEFCONST TE3 ...)
; processing (DEFCONST TE4 ...)
; processing (DEFCONST TD0 ...)
; processing (DEFCONST TD1 ...)
; processing (DEFCONST TD2 ...)
; processing (DEFCONST TD3 ...)
; processing (DEFCONST TD4 ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST ROUND-CONSTANTS ...)
; processing (DEFTYPE AES-ROUND-KEYS ...)
; processing (DEFCLASS AES ...)
; processing (DEFUN ALLOCATE-ROUND-KEYS ...)
; processing (DEFUN GENERATE-128-BIT-ROUND-KEYS ...)
; processing (DEFUN GENERATE-192-BIT-ROUND-KEYS ...)
; processing (DEFUN GENERATE-256-BIT-ROUND-KEYS ...)
; processing (DEFUN GENERATE-ROUND-KEYS-FOR-ENCRYPTION ...)
; processing (DEFUN GENERATE-ROUND-KEYS-FOR-DECRYPTION ...)
; processing (MACROLET (# # ...) ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/aes.lisp
; in: DEFINE-BLOCK-ENCRYPTOR AES
; (IRONCLAD::DEFINE-BLOCK-ENCRYPTOR IRONCLAD:AES
; 16
; (LET ((IRONCLAD::ROUND-KEYS
; (IRONCLAD::ENCRYPTION-ROUND-KEYS IRONCLAD::CONTEXT))
; (IRONCLAD::N-ROUNDS (IRONCLAD::N-ROUNDS IRONCLAD::CONTEXT)))
; (DECLARE (TYPE IRONCLAD::AES-ROUND-KEYS IRONCLAD::ROUND-KEYS))
; (DECLARE (TYPE (INTEGER 0 14) IRONCLAD::N-ROUNDS))
; (IF NIL
; NIL
; (IRONCLAD::WITH-WORDS (# IRONCLAD::PLAINTEXT
; IRONCLAD::PLAINTEXT-START)
; (LET #
; #
; #
; #
; #
; #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::AES-ENCRYPT-BLOCK
; (IRONCLAD::CONTEXT IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START
; IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (OPTIMIZE (SPEED 3) (DEBUG 0) (SPACE 0)))
; (DECLARE
; (TYPE IRONCLAD::SIMPLE-OCTET-VECTOR IRONCLAD::PLAINTEXT
; IRONCLAD::CIPHERTEXT)
; (TYPE (INTEGER 0 536870893) IRONCLAD::PLAINTEXT-START
; IRONCLAD::CIPHERTEXT-START))
; (BLOCK IRONCLAD::AES-ENCRYPT-BLOCK
; (LET ((IRONCLAD::ROUND-KEYS #) (IRONCLAD::N-ROUNDS #))
; (DECLARE (TYPE IRONCLAD::AES-ROUND-KEYS IRONCLAD::ROUND-KEYS))
; (DECLARE (TYPE # IRONCLAD::N-ROUNDS))
; (IF NIL
; NIL
; (IRONCLAD::WITH-WORDS #
; #)))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: DEFINE-BLOCK-DECRYPTOR AES
; (IRONCLAD::DEFINE-BLOCK-DECRYPTOR IRONCLAD:AES
; 16
; (LET ((IRONCLAD::ROUND-KEYS
; (IRONCLAD::DECRYPTION-ROUND-KEYS IRONCLAD::CONTEXT))
; (IRONCLAD::N-ROUNDS (IRONCLAD::N-ROUNDS IRONCLAD::CONTEXT)))
; (DECLARE (TYPE IRONCLAD::AES-ROUND-KEYS IRONCLAD::ROUND-KEYS))
; (DECLARE (TYPE (UNSIGNED-BYTE 16) IRONCLAD::N-ROUNDS))
; (IF NIL
; NIL
; (IRONCLAD::WITH-WORDS (# IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START)
; (LET #
; #
; #
; #
; #
; #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::AES-DECRYPT-BLOCK
; (IRONCLAD::CONTEXT IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START
; IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (OPTIMIZE (SPEED 3) (DEBUG 0) (SPACE 0)))
; (DECLARE
; (TYPE IRONCLAD::SIMPLE-OCTET-VECTOR IRONCLAD::CIPHERTEXT
; IRONCLAD::PLAINTEXT)
; (TYPE (INTEGER 0 536870893) IRONCLAD::CIPHERTEXT-START
; IRONCLAD::PLAINTEXT-START))
; (BLOCK IRONCLAD::AES-DECRYPT-BLOCK
; (LET ((IRONCLAD::ROUND-KEYS #) (IRONCLAD::N-ROUNDS #))
; (DECLARE (TYPE IRONCLAD::AES-ROUND-KEYS IRONCLAD::ROUND-KEYS))
; (DECLARE (TYPE # IRONCLAD::N-ROUNDS))
; (IF NIL
; NIL
; (IRONCLAD::WITH-WORDS #
; #)))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFMETHOD SCHEDULE-KEY ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/aes.lisp
; in: DEFMETHOD SCHEDULE-KEY (AES T)
; (LET ((IRONCLAD::ENCRYPTION-KEYS
; (IRONCLAD::ALLOCATE-ROUND-KEYS IRONCLAD::KEY))
; (IRONCLAD::DECRYPTION-KEYS
; (IRONCLAD::ALLOCATE-ROUND-KEYS IRONCLAD::KEY))
; (IRONCLAD::N-ROUNDS
; (ECASE (LENGTH IRONCLAD::KEY) (16 10) (24 12) (32 14))))
; (DECLARE
; (TYPE IRONCLAD::AES-ROUND-KEYS IRONCLAD::ENCRYPTION-KEYS
; IRONCLAD::DECRYPTION-KEYS))
; (SETF (IRONCLAD::ENCRYPTION-ROUND-KEYS IRONCLAD::CIPHER)
; IRONCLAD::ENCRYPTION-KEYS
; (IRONCLAD::DECRYPTION-ROUND-KEYS IRONCLAD::CIPHER)
; IRONCLAD::DECRYPTION-KEYS
; (IRONCLAD::N-ROUNDS IRONCLAD::CIPHER) IRONCLAD::N-ROUNDS)
; IRONCLAD::CIPHER)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; processing (DEFCIPHER AES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/aes-tmpH6YIZTI1.fasl
; compilation finished in 0:00:01.680
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/arcfour.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFTYPE ARCFOUR-SBOX ...)
; processing (DEFCLASS ARCFOUR ...)
; processing (DEFUN ARCFOUR-KEYIFY ...)
; processing (DEFINE-STREAM-CRYPTOR ARCFOUR ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/arcfour.lisp
; in: DEFINE-STREAM-CRYPTOR ARCFOUR
; (+ IRONCLAD::CIPHERTEXT-START IRONCLAD::I)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; (+ IRONCLAD::PLAINTEXT-START IRONCLAD::I)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER ARCFOUR ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/arcfour-tmpSJEPG7AU.fasl
; compilation finished in 0:00:00.116
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/aria.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONST +ARIA-S1+ ...)
; processing (DEFCONST +ARIA-S2+ ...)
; processing (DEFCONST +ARIA-X1+ ...)
; processing (DEFCONST +ARIA-X2+ ...)
; processing (DEFCONST +ARIA-C1+ ...)
; processing (DEFCONST +ARIA-C2+ ...)
; processing (DEFCONST +ARIA-C3+ ...)
; processing (DEFMACRO ARIA-BRF ...)
; processing (DEFMACRO ARIA-KXL ...)
; processing (DEFMACRO ARIA-SBL1-M ...)
; processing (DEFMACRO ARIA-SBL2-M ...)
; processing (DEFMACRO ARIA-P ...)
; processing (DEFMACRO ARIA-M ...)
; processing (DEFMACRO ARIA-MM ...)
; processing (DEFMACRO ARIA-FO ...)
; processing (DEFMACRO ARIA-FE ...)
; processing (DEFUN ARIA-GSRK ...)
; processing (DEFUN ARIA-PROCESS-BLOCK ...)
; processing (DEFCLASS ARIA ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR ARIA ...)
; processing (DEFINE-BLOCK-DECRYPTOR ARIA ...)
; processing (DEFCIPHER ARIA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/aria-tmpSNZATJRM.fasl
; compilation finished in 0:00:03.684
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/blowfish.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DEFCONST +BLOWFISH-N-ROUNDS+ ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +P-ARRAY+ ...)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +S-BOX-0+ ...)
; processing (DEFCONST +S-BOX-1+ ...)
; processing (DEFCONST +S-BOX-2+ ...)
; processing (DEFCONST +S-BOX-3+ ...)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL) ...)
; processing (DEFCLASS BLOWFISH ...)
; processing (MACROLET (# # ...) ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/blowfish.lisp
; in: DEFINE-BLOCK-ENCRYPTOR BLOWFISH
; (IRONCLAD::DEFINE-BLOCK-ENCRYPTOR IRONCLAD:BLOWFISH
; 8
; (DECLARE (INLINE IRONCLAD::BLOWFISH-ENCRYPT-BLOCK*))
; (IRONCLAD::BLOWFISH-ENCRYPT-BLOCK* (IRONCLAD::P-ARRAY IRONCLAD::CONTEXT)
; (IRONCLAD::S-BOXES IRONCLAD::CONTEXT) IRONCLAD::PLAINTEXT
; IRONCLAD::PLAINTEXT-START IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::BLOWFISH-ENCRYPT-BLOCK
; (IRONCLAD::CONTEXT IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START
; IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (OPTIMIZE (SPEED 3) (DEBUG 0) (SPACE 0)))
; (DECLARE
; (TYPE IRONCLAD::SIMPLE-OCTET-VECTOR IRONCLAD::PLAINTEXT
; IRONCLAD::CIPHERTEXT)
; (TYPE (INTEGER 0 536870901) IRONCLAD::PLAINTEXT-START
; IRONCLAD::CIPHERTEXT-START))
; (DECLARE (INLINE IRONCLAD::BLOWFISH-ENCRYPT-BLOCK*))
; (BLOCK IRONCLAD::BLOWFISH-ENCRYPT-BLOCK
; (IRONCLAD::BLOWFISH-ENCRYPT-BLOCK*
; (IRONCLAD::P-ARRAY IRONCLAD::CONTEXT)
; (IRONCLAD::S-BOXES IRONCLAD::CONTEXT) IRONCLAD::PLAINTEXT
; IRONCLAD::PLAINTEXT-START IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START)))
;
; note: doing unsigned word to integer coercion (cost 20) from LEFT to "<return value>"
; in: DEFINE-BLOCK-DECRYPTOR BLOWFISH
; (IRONCLAD::DEFINE-BLOCK-DECRYPTOR IRONCLAD:BLOWFISH
; 8
; (DECLARE (INLINE IRONCLAD::BLOWFISH-DECRYPT-BLOCK*))
; (IRONCLAD::BLOWFISH-DECRYPT-BLOCK* (IRONCLAD::P-ARRAY IRONCLAD::CONTEXT)
; (IRONCLAD::S-BOXES IRONCLAD::CONTEXT) IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::BLOWFISH-DECRYPT-BLOCK
; (IRONCLAD::CONTEXT IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START
; IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (OPTIMIZE (SPEED 3) (DEBUG 0) (SPACE 0)))
; (DECLARE
; (TYPE IRONCLAD::SIMPLE-OCTET-VECTOR IRONCLAD::CIPHERTEXT
; IRONCLAD::PLAINTEXT)
; (TYPE (INTEGER 0 536870901) IRONCLAD::CIPHERTEXT-START
; IRONCLAD::PLAINTEXT-START))
; (DECLARE (INLINE IRONCLAD::BLOWFISH-DECRYPT-BLOCK*))
; (BLOCK IRONCLAD::BLOWFISH-DECRYPT-BLOCK
; (IRONCLAD::BLOWFISH-DECRYPT-BLOCK*
; (IRONCLAD::P-ARRAY IRONCLAD::CONTEXT)
; (IRONCLAD::S-BOXES IRONCLAD::CONTEXT) IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START IRONCLAD::PLAINTEXT
; IRONCLAD::PLAINTEXT-START)))
;
; note: doing unsigned word to integer coercion (cost 20) from LEFT to "<return value>"
; processing (DEFCIPHER BLOWFISH ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/blowfish-tmpK93FRK93.fasl
; compilation finished in 0:00:02.164
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/camellia.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCONST +CAMELLIA-SBOX1+ ...)
; processing (DEFCONST +CAMELLIA-SBOX2+ ...)
; processing (DEFCONST +CAMELLIA-SBOX3+ ...)
; processing (DEFCONST +CAMELLIA-SBOX4+ ...)
; processing (DEFCONST +CAMELLIA-SIGMA+ ...)
; processing (DEFCONST +CAMELLIA-KSFT1+ ...)
; processing (DEFCONST +CAMELLIA-KIDX1+ ...)
; processing (DEFCONST +CAMELLIA-KSFT2+ ...)
; processing (DEFCONST +CAMELLIA-KIDX2+ ...)
; processing (DECLAIM (FTYPE # ...) ...)
; processing (DEFUN CAMELLIA-FEISTEL ...)
; processing (DEFCLASS CAMELLIA ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-BLOCK-ENCRYPTOR CAMELLIA ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/camellia.lisp
; in: DEFINE-BLOCK-ENCRYPTOR CAMELLIA
; (IRONCLAD::DEFINE-BLOCK-ENCRYPTOR IRONCLAD:CAMELLIA
; 16
; (LET ((IRONCLAD::ROUND-KEYS (IRONCLAD::ROUND-KEYS IRONCLAD::CONTEXT))
; (IRONCLAD::KEYS-START 4)
; (IRONCLAD::GRAND-ROUNDS (IRONCLAD::GRAND-ROUNDS IRONCLAD::CONTEXT))
; (IRONCLAD::DATA (MAKE-ARRAY 4 :ELEMENT-TYPE '#)))
; (DECLARE (TYPE (SIMPLE-ARRAY # #) IRONCLAD::ROUND-KEYS IRONCLAD::DATA)
; (TYPE FIXNUM IRONCLAD::KEYS-START IRONCLAD::GRAND-ROUNDS)
; (DYNAMIC-EXTENT IRONCLAD::DATA))
; (SETF (AREF IRONCLAD::DATA 0) (LOGXOR # #)
; (AREF IRONCLAD::DATA 1) (LOGXOR # #)
; (AREF IRONCLAD::DATA 2) (LOGXOR # #)
; (AREF IRONCLAD::DATA 3) (LOGXOR # #))
; (DOTIMES (IRONCLAD::I IRONCLAD::GRAND-ROUNDS)
; (DOTIMES (IRONCLAD::J 3)
; (IRONCLAD::CAMELLIA-FEISTEL IRONCLAD::DATA 0 IRONCLAD::ROUND-KEYS
; IRONCLAD::KEYS-START 2)
; (INCF IRONCLAD::KEYS-START 4))
; (WHEN (< IRONCLAD::I #) (SETF #) (INCF IRONCLAD::KEYS-START 4)))
; (ROTATEF (AREF IRONCLAD::DATA 0) (AREF IRONCLAD::DATA 2))
; (ROTATEF (AREF IRONCLAD::DATA 1) (AREF IRONCLAD::DATA 3))
; (SETF (IRONCLAD:UB32REF/BE IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START)
; (LOGXOR # #))
; (SETF (IRONCLAD:UB32REF/BE IRONCLAD::CIPHERTEXT #) (LOGXOR # #))
; (SETF (IRONCLAD:UB32REF/BE IRONCLAD::CIPHERTEXT #) (LOGXOR # #))
; (SETF (IRONCLAD:UB32REF/BE IRONCLAD::CIPHERTEXT #) (LOGXOR # #))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::CAMELLIA-ENCRYPT-BLOCK
; (IRONCLAD::CONTEXT IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START
; IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (OPTIMIZE (SPEED 3) (DEBUG 0) (SPACE 0)))
; (DECLARE
; (TYPE IRONCLAD::SIMPLE-OCTET-VECTOR IRONCLAD::PLAINTEXT
; IRONCLAD::CIPHERTEXT)
; (TYPE (INTEGER 0 536870893) IRONCLAD::PLAINTEXT-START
; IRONCLAD::CIPHERTEXT-START))
; (BLOCK IRONCLAD::CAMELLIA-ENCRYPT-BLOCK
; (LET ((IRONCLAD::ROUND-KEYS #)
; (IRONCLAD::KEYS-START 4)
; (IRONCLAD::GRAND-ROUNDS #)
; (IRONCLAD::DATA #))
; (DECLARE (TYPE # IRONCLAD::ROUND-KEYS IRONCLAD::DATA)
; (TYPE FIXNUM IRONCLAD::KEYS-START IRONCLAD::GRAND-ROUNDS)
; (DYNAMIC-EXTENT IRONCLAD::DATA))
; (SETF # #
; # #
; # #
; # #)
; (DOTIMES (IRONCLAD::I IRONCLAD::GRAND-ROUNDS)
; (DOTIMES # # #)
; (WHEN # # #))
; (ROTATEF (AREF IRONCLAD::DATA 0) (AREF IRONCLAD::DATA 2))
; (ROTATEF (AREF IRONCLAD::DATA 1) (AREF IRONCLAD::DATA 3))
; (SETF # #)
; (SETF # #)
; (SETF # #)
; (SETF # #))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFINE-BLOCK-DECRYPTOR CAMELLIA ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/camellia.lisp
; in: DEFINE-BLOCK-DECRYPTOR CAMELLIA
; (DECF IRONCLAD::KEYS-START 2)
; --> THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
; (IRONCLAD::DEFINE-BLOCK-DECRYPTOR IRONCLAD:CAMELLIA
; 16
; (LET* ((IRONCLAD::ROUND-KEYS (IRONCLAD::ROUND-KEYS IRONCLAD::CONTEXT))
; (IRONCLAD::GRAND-ROUNDS (IRONCLAD::GRAND-ROUNDS IRONCLAD::CONTEXT))
; (IRONCLAD::KEYS-START
; (IF #
; 48
; 64))
; (IRONCLAD::DATA (MAKE-ARRAY 4 :ELEMENT-TYPE '#)))
; (DECLARE (TYPE (SIMPLE-ARRAY # #) IRONCLAD::ROUND-KEYS IRONCLAD::DATA)
; (TYPE FIXNUM IRONCLAD::KEYS-START IRONCLAD::GRAND-ROUNDS)
; (DYNAMIC-EXTENT IRONCLAD::DATA))
; (SETF (AREF IRONCLAD::DATA 0) (LOGXOR # #)
; (AREF IRONCLAD::DATA 1) (LOGXOR # #)
; (AREF IRONCLAD::DATA 2) (LOGXOR # #)
; (AREF IRONCLAD::DATA 3) (LOGXOR # #))
; (DECF IRONCLAD::KEYS-START 2)
; (DOTIMES (IRONCLAD::I IRONCLAD::GRAND-ROUNDS)
; (DOTIMES (IRONCLAD::J 3)
; (IRONCLAD::CAMELLIA-FEISTEL IRONCLAD::DATA 0 IRONCLAD::ROUND-KEYS
; IRONCLAD::KEYS-START -2)
; (DECF IRONCLAD::KEYS-START 4))
; (WHEN (< IRONCLAD::I #) (SETF #) (DECF IRONCLAD::KEYS-START 4)))
; (DECF IRONCLAD::KEYS-START 2)
; (ROTATEF (AREF IRONCLAD::DATA 0) (AREF IRONCLAD::DATA 2))
; (ROTATEF (AREF IRONCLAD::DATA 1) (AREF IRONCLAD::DATA 3))
; (SETF (IRONCLAD:UB32REF/BE IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; (LOGXOR # #))
; (SETF (IRONCLAD:UB32REF/BE IRONCLAD::PLAINTEXT #) (LOGXOR # #))
; (SETF (IRONCLAD:UB32REF/BE IRONCLAD::PLAINTEXT #) (LOGXOR # #))
; ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::CAMELLIA-DECRYPT-BLOCK
; (IRONCLAD::CONTEXT IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START
; IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (OPTIMIZE (SPEED 3) (DEBUG 0) (SPACE 0)))
; (DECLARE
; (TYPE IRONCLAD::SIMPLE-OCTET-VECTOR IRONCLAD::CIPHERTEXT
; IRONCLAD::PLAINTEXT)
; (TYPE (INTEGER 0 536870893) IRONCLAD::CIPHERTEXT-START
; IRONCLAD::PLAINTEXT-START))
; (BLOCK IRONCLAD::CAMELLIA-DECRYPT-BLOCK
; (LET* ((IRONCLAD::ROUND-KEYS #)
; (IRONCLAD::GRAND-ROUNDS #)
; (IRONCLAD::KEYS-START #)
; (IRONCLAD::DATA #))
; (DECLARE (TYPE # IRONCLAD::ROUND-KEYS IRONCLAD::DATA)
; (TYPE FIXNUM IRONCLAD::KEYS-START IRONCLAD::GRAND-ROUNDS)
; (DYNAMIC-EXTENT IRONCLAD::DATA))
; (SETF # #
; # #
; # #
; # #)
; (DECF IRONCLAD::KEYS-START 2)
; (DOTIMES (IRONCLAD::I IRONCLAD::GRAND-ROUNDS)
; (DOTIMES # # #)
; (WHEN # # #))
; (DECF IRONCLAD::KEYS-START 2)
; (ROTATEF (AREF IRONCLAD::DATA 0) (AREF IRONCLAD::DATA 2))
; (ROTATEF (AREF IRONCLAD::DATA 1) (AREF IRONCLAD::DATA 3))
; (SETF # #)
; (SETF # #)
; (SETF # #)
; ...)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; processing (DEFCIPHER CAMELLIA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/camellia-tmpUIQ1NDZ1.fasl
; compilation finished in 0:00:01.192
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/cast5.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST +CAST5-SBOX0+ ...)
; processing (DEFCONST +CAST5-SBOX1+ ...)
; processing (DEFCONST +CAST5-SBOX2+ ...)
; processing (DEFCONST +CAST5-SBOX3+ ...)
; processing (DEFCONST +CAST5-SBOX4+ ...)
; processing (DEFCONST +CAST5-SBOX5+ ...)
; processing (DEFCONST +CAST5-SBOX6+ ...)
; processing (DEFCONST +CAST5-SBOX7+ ...)
; processing (DEFTYPE CAST5-MASK-VECTOR ...)
; processing (DEFTYPE CAST5-ROTATE-VECTOR ...)
; processing (DEFCLASS CAST5 ...)
; processing (DECLAIM (INLINE CAST5-F1 ...))
; processing (MACROLET (#) ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/cast5.lisp
; in: DEFINE-BLOCK-ENCRYPTOR CAST5
; (IRONCLAD::DEFINE-BLOCK-ENCRYPTOR IRONCLAD:CAST5
; 8
; (LET ((IRONCLAD::MASK-VECTOR (IRONCLAD::MASK-VECTOR IRONCLAD::CONTEXT))
; (IRONCLAD::ROTATE-VECTOR (IRONCLAD::ROTATE-VECTOR IRONCLAD::CONTEXT))
; (IRONCLAD::N-ROUNDS (IRONCLAD::N-ROUNDS IRONCLAD::CONTEXT)))
; (DECLARE (TYPE IRONCLAD::CAST5-MASK-VECTOR IRONCLAD::MASK-VECTOR))
; (DECLARE (TYPE IRONCLAD::CAST5-ROTATE-VECTOR IRONCLAD::ROTATE-VECTOR))
; (DECLARE (TYPE (OR # #) IRONCLAD::N-ROUNDS))
; (IRONCLAD::WITH-WORDS ((IRONCLAD::L0 IRONCLAD::R0) IRONCLAD::PLAINTEXT
; IRONCLAD::PLAINTEXT-START)
; (PROGN
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; ...)
; (IRONCLAD::STORE-WORDS IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START
; IRONCLAD::R0 IRONCLAD::L0))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::CAST5-ENCRYPT-BLOCK
; (IRONCLAD::CONTEXT IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START
; IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (OPTIMIZE (SPEED 3) (DEBUG 0) (SPACE 0)))
; (DECLARE
; (TYPE IRONCLAD::SIMPLE-OCTET-VECTOR IRONCLAD::PLAINTEXT
; IRONCLAD::CIPHERTEXT)
; (TYPE (INTEGER 0 536870901) IRONCLAD::PLAINTEXT-START
; IRONCLAD::CIPHERTEXT-START))
; (BLOCK IRONCLAD::CAST5-ENCRYPT-BLOCK
; (LET ((IRONCLAD::MASK-VECTOR #)
; (IRONCLAD::ROTATE-VECTOR #)
; (IRONCLAD::N-ROUNDS #))
; (DECLARE (TYPE IRONCLAD::CAST5-MASK-VECTOR IRONCLAD::MASK-VECTOR))
; (DECLARE
; (TYPE IRONCLAD::CAST5-ROTATE-VECTOR IRONCLAD::ROTATE-VECTOR))
; (DECLARE (TYPE # IRONCLAD::N-ROUNDS))
; (IRONCLAD::WITH-WORDS (# IRONCLAD::PLAINTEXT
; IRONCLAD::PLAINTEXT-START)
; (PROGN # # # # # # # # # # # ...)
; (IRONCLAD::STORE-WORDS IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START IRONCLAD::R0 IRONCLAD::L0)))))
;
; note: doing unsigned word to integer coercion (cost 20) from L0 to "<return value>"
; in: DEFINE-BLOCK-DECRYPTOR CAST5
; (IRONCLAD::DEFINE-BLOCK-DECRYPTOR IRONCLAD:CAST5
; 8
; (LET ((IRONCLAD::MASK-VECTOR (IRONCLAD::MASK-VECTOR IRONCLAD::CONTEXT))
; (IRONCLAD::ROTATE-VECTOR (IRONCLAD::ROTATE-VECTOR IRONCLAD::CONTEXT))
; (IRONCLAD::N-ROUNDS (IRONCLAD::N-ROUNDS IRONCLAD::CONTEXT)))
; (DECLARE (TYPE IRONCLAD::CAST5-MASK-VECTOR IRONCLAD::MASK-VECTOR))
; (DECLARE (TYPE IRONCLAD::CAST5-ROTATE-VECTOR IRONCLAD::ROTATE-VECTOR))
; (DECLARE (TYPE (OR # #) IRONCLAD::N-ROUNDS))
; (IRONCLAD::WITH-WORDS ((IRONCLAD::L0 IRONCLAD::R0) IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START)
; (PROGN
; (WHEN # # # # #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; (LET #
; #
; #)
; ...)
; (IRONCLAD::STORE-WORDS IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START
; IRONCLAD::R0 IRONCLAD::L0))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA IRONCLAD::CAST5-DECRYPT-BLOCK
; (IRONCLAD::CONTEXT IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START
; IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (OPTIMIZE (SPEED 3) (DEBUG 0) (SPACE 0)))
; (DECLARE
; (TYPE IRONCLAD::SIMPLE-OCTET-VECTOR IRONCLAD::CIPHERTEXT
; IRONCLAD::PLAINTEXT)
; (TYPE (INTEGER 0 536870901) IRONCLAD::CIPHERTEXT-START
; IRONCLAD::PLAINTEXT-START))
; (BLOCK IRONCLAD::CAST5-DECRYPT-BLOCK
; (LET ((IRONCLAD::MASK-VECTOR #)
; (IRONCLAD::ROTATE-VECTOR #)
; (IRONCLAD::N-ROUNDS #))
; (DECLARE (TYPE IRONCLAD::CAST5-MASK-VECTOR IRONCLAD::MASK-VECTOR))
; (DECLARE
; (TYPE IRONCLAD::CAST5-ROTATE-VECTOR IRONCLAD::ROTATE-VECTOR))
; (DECLARE (TYPE # IRONCLAD::N-ROUNDS))
; (IRONCLAD::WITH-WORDS (# IRONCLAD::CIPHERTEXT
; IRONCLAD::CIPHERTEXT-START)
; (PROGN # # # # # # # # # # # ...)
; (IRONCLAD::STORE-WORDS IRONCLAD::PLAINTEXT
; IRONCLAD::PLAINTEXT-START IRONCLAD::R0 IRONCLAD::L0)))))
;
; note: doing unsigned word to integer coercion (cost 20) from L0 to "<return value>"
; processing (DEFUN GENERATE-CAST5-KEY-SCHEDULE ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER CAST5 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/cast5-tmp7V5GAYEU.fasl
; compilation finished in 0:00:02.024
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/chacha.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST CHACHA-SIGMA ...)
; processing (DEFCONST CHACHA-TAU ...)
; processing (DEFTYPE CHACHA-STATE ...)
; processing (DEFTYPE CHACHA-KEYSTREAM-BUFFER ...)
; processing (DECLAIM (INLINE CHACHA-CORE))
; processing (DEFUN CHACHA-CORE ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/chacha.lisp
; in: DEFUN CHACHA-CORE
; (DOTIMES (IRONCLAD::I IRONCLAD::N-ROUNDS)
; (IRONCLAD::QUARTER-ROUND 0 4 8 12)
; (IRONCLAD::QUARTER-ROUND 1 5 9 13)
; (IRONCLAD::QUARTER-ROUND 2 6 10 14)
; (IRONCLAD::QUARTER-ROUND 3 7 11 15)
; (IRONCLAD::QUARTER-ROUND 0 5 10 15)
; (IRONCLAD::QUARTER-ROUND 1 6 11 12)
; (IRONCLAD::QUARTER-ROUND 2 7 8 13)
; (IRONCLAD::QUARTER-ROUND 3 4 9 14))
; --> BLOCK LET TAGBODY UNLESS IF >=
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a INTEGER, 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 INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM . #2#).
; etc.
; processing (DEFUN CHACHA/8-CORE ...)
; processing (DEFUN CHACHA/12-CORE ...)
; processing (DEFUN CHACHA/20-CORE ...)
; processing (DEFCLASS CHACHA ...)
; processing (DEFCLASS CHACHA/12 ...)
; processing (DEFCLASS CHACHA/8 ...)
; processing (DEFUN CHACHA-KEYIFY ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFINE-STREAM-CRYPTOR CHACHA ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/chacha.lisp
; in: DEFINE-STREAM-CRYPTOR CHACHA
; (ZEROP
; (SETF (AREF IRONCLAD::STATE 12)
; (IRONCLAD::MOD32+ (AREF IRONCLAD::STATE 12) 1)))
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; processing (DEFCIPHER CHACHA ...)
; processing (DEFCIPHER CHACHA/12 ...)
; processing (DEFCIPHER CHACHA/8 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/chacha-tmpB7TVS35O.fasl
; compilation finished in 0:00:01.752
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/xchacha.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFCLASS XCHACHA ...)
; processing (DEFCLASS XCHACHA/12 ...)
; processing (DEFCLASS XCHACHA/8 ...)
; processing (DEFMETHOD SHARED-INITIALIZE ...)
; processing (DEFCIPHER XCHACHA ...)
; processing (DEFCIPHER XCHACHA/12 ...)
; processing (DEFCIPHER XCHACHA/8 ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/xchacha-tmpJOMD2L5F.fasl
; compilation finished in 0:00:00.172
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/des.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (IN-IRONCLAD-READTABLE)
; processing (DECLAIM (TYPE # ...))
; processing (DEFCONST DES-SBOX0 ...)
; processing (DEFCONST DES-SBOX1 ...)
; processing (DEFCONST DES-SBOX2 ...)
; processing (DEFCONST DES-SBOX3 ...)
; processing (DEFCONST DES-SBOX4 ...)
; processing (DEFCONST DES-SBOX5 ...)
; processing (DEFCONST DES-SBOX6 ...)
; processing (DEFCONST DES-SBOX7 ...)
; processing (DEFCONST PERMUTATION1 ...)
; processing (DEFCONST TOTAL-ROTATIONS ...)
; processing (DEFCONST PERMUTATION2 ...)
; processing (DEFTYPE DES-ROUND-KEYS ...)
; processing (MACROLET (# # ...) ...)
; processing (DEFCLASS DES ...)
; processing (DEFINE-BLOCK-ENCRYPTOR DES ...)
; processing (DEFINE-BLOCK-DECRYPTOR DES ...)
; processing (DEFCLASS 3DES ...)
; processing (DEFINE-BLOCK-ENCRYPTOR 3DES ...)
; processing (DEFINE-BLOCK-DECRYPTOR 3DES ...)
; processing (DEFUN DES-COOK-KEY-SCHEDULE ...)
; processing (DEFUN COMPUTE-DES-ENCRYPTION-KEYS ...)
; processing (DEFUN COMPUTE-ROUND-KEYS-FOR-DES-KEY ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER DES ...)
; processing (DEFCIPHER 3DES ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/des-tmpDH22VGZN.fasl
; compilation finished in 0:00:00.736
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/idea.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (DEFUN IDEA-MUL ...)
; processing (DEFUN IDEA-MUL-INV ...)
; processing (DEFTYPE IDEA-ROUND-KEYS ...)
; processing (DEFUN IDEA-MUNGE-BLOCK ...)
; processing (DEFCLASS IDEA ...)
; processing (DEFINE-BLOCK-ENCRYPTOR IDEA ...)
; processing (DEFINE-BLOCK-DECRYPTOR IDEA ...)
; processing (DEFUN IDEA-INVERT-KEY ...)
; processing (DEFUN IDEA-KEY-SCHEDULE ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; processing (DEFCIPHER IDEA ...)
; wrote /<<PKGBUILDDIR>>/debian/home/.cache/common-lisp/sbcl-2.3.7.debian-linux-arm/usr/share/common-lisp/source/ironclad/src/ciphers/idea-tmpXDMVI6M.fasl
; compilation finished in 0:00:00.308
; compiling file "/usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp" (written 18 FEB 2022 01:39:10 PM):
; processing (IN-PACKAGE :CRYPTO)
; processing (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL ...) ...)
; processing (DECLAIM (TYPE # ...) ...)
; processing (DECLAIM (INLINE KALYNA-MAKE-ODD-KEY))
; processing (DEFUN KALYNA-MAKE-ODD-KEY ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-MAKE-ODD-KEY
; (IRONCLAD::M 0 1 8 0 -56)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 8)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 0 8 1 -56)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 8)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 3 40 2 -24)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 4 40 3 -24)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 4)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 4)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 5 40 4 -24)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 5)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 4)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 5)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 4)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 6 40 5 -24)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 6)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 5)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 6)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 5)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 7 40 6 -24)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 7)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 6)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 7)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 6)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 0 40 7 -24)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 7)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 7)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 1 40 0 -24)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 2 40 1 -24)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 2 40 1 -24)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 3 40 2 -24)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 0 40 3 -24)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 1 40 0 -24)
; --> LET* LOGIOR IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; processing (DECLAIM (INLINE KALYNA-SWAP-BLOCKS))
; processing (DEFUN KALYNA-SWAP-BLOCKS ...)
; processing (DEFMACRO KALYNA-ADD-KEY ...)
; processing (DEFMACRO KALYNA-SUB-KEY ...)
; processing (DEFMACRO KALYNA-ADD-CONSTANT ...)
; processing (DECLAIM (INLINE KALYNA-G0128))
; processing (DEFUN KALYNA-G0128 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-G0128
; (IRONCLAD::M 0 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 0 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 0 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 0 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 1 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 1 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 1 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 1 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 1 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 1 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 0 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 0 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 0 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; processing (DECLAIM (INLINE KALYNA-GL128))
; processing (DEFUN KALYNA-GL128 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-GL128
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 0))
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8)
; (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56)))
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 1))
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8)
; (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56)))
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::M 0 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 0 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 0 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 0 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 1 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 1 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 1 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 0))
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8)
; (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56)))
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 1 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 1 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 1 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 0 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 0 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 0 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 1))
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8)
; (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56)))
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; processing (DECLAIM (INLINE KALYNA-IMC128))
; processing (DEFUN KALYNA-IMC128 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-IMC128
; (IRONCLAD::M 0 0 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 1 0 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 2 0 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 3 0 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 0 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 0 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 2 0 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 3 0 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 0 1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 1 1 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 2 1 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 3 1 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 1 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 1 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 2 1 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 3 1 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; processing (DECLAIM (INLINE KALYNA-IG128))
; processing (DEFUN KALYNA-IG128 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-IG128
; (IRONCLAD::M 0 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 0 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 0 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 0 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 1 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 1 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 1 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 1 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 1 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 1 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 0 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 0 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 0 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; processing (DECLAIM (INLINE KALYNA-IGL128))
; processing (DEFUN KALYNA-IGL128 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-IGL128
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8)
; (IRONCLAD::M 2 0 -16 16) (IRONCLAD::M 3 0 -24 24)
; (IRONCLAD::M 0 1 -32 32) (IRONCLAD::M 1 1 -40 40)
; (IRONCLAD::M 2 1 -48 48) (IRONCLAD::M 3 1 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)))
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8)
; (IRONCLAD::M 2 1 -16 16) (IRONCLAD::M 3 1 -24 24)
; (IRONCLAD::M 0 0 -32 32) (IRONCLAD::M 1 0 -40 40)
; (IRONCLAD::M 2 0 -48 48) (IRONCLAD::M 3 0 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)))
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::M 0 0 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 0 -8 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (IRONCLAD::M 2 0 -16 16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (IRONCLAD::M 3 0 -24 24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (IRONCLAD::M 0 1 -32 32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 1095216660481) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 1095216660481) . #2#), not a (VALUES FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 1 -48 48)
; (IRONCLAD::M 3 1 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (MOD 1095216660481), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The second argument is a (MOD 1095216660481), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 1 -40 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 280375465082881) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 280375465082881) . #2#), not a (VALUES
; FIXNUM . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 1 -48 48)
; (IRONCLAD::M 3 1 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The second argument is a (MOD 280375465082881), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 280375465082881), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 1 -48 48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 71776119061217281) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 71776119061217281) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 1 -48 48)
; (IRONCLAD::M 3 1 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; The second argument is a (MOD 71776119061217281), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 71776119061217281), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 1 -56 56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 1 -48 48)
; (IRONCLAD::M 3 1 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; The second argument is a (MOD 18374686479671623681), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 18374686479671623681), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8)
; (IRONCLAD::M 2 0 -16 16) (IRONCLAD::M 3 0 -24 24)
; (IRONCLAD::M 0 1 -32 32) (IRONCLAD::M 1 1 -40 40)
; (IRONCLAD::M 2 1 -48 48) (IRONCLAD::M 3 1 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)))
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (IRONCLAD::M 0 1 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 1 -8 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (IRONCLAD::M 2 1 -16 16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (IRONCLAD::M 3 1 -24 24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (IRONCLAD::M 0 0 -32 32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 1095216660481) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 1095216660481) . #2#), not a (VALUES FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 0 -48 48)
; (IRONCLAD::M 3 0 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (MOD 1095216660481), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The second argument is a (MOD 1095216660481), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 0 -40 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 280375465082881) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 280375465082881) . #2#), not a (VALUES
; FIXNUM . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 0 -48 48)
; (IRONCLAD::M 3 0 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The second argument is a (MOD 280375465082881), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 280375465082881), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 0 -48 48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 71776119061217281) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 71776119061217281) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 0 -48 48)
; (IRONCLAD::M 3 0 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; The second argument is a (MOD 71776119061217281), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 71776119061217281), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 0 -56 56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 0 -48 48)
; (IRONCLAD::M 3 0 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; The second argument is a (MOD 18374686479671623681), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 18374686479671623681), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8)
; (IRONCLAD::M 2 1 -16 16) (IRONCLAD::M 3 1 -24 24)
; (IRONCLAD::M 0 0 -32 32) (IRONCLAD::M 1 0 -40 40)
; (IRONCLAD::M 2 0 -48 48) (IRONCLAD::M 3 0 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)))
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 1 -48 48)
; (IRONCLAD::M 3 1 -56 56))
;
; note: doing unsigned word to integer coercion (cost 20)
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 0 -48 48)
; (IRONCLAD::M 3 0 -56 56))
;
; note: doing unsigned word to integer coercion (cost 20)
; processing (DECLAIM (INLINE KALYNA-G128))
; processing (DEFUN KALYNA-G128 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-G128
; (IRONCLAD::M 0 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 0 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 0 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 0 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 1 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 1 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 1 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 1 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 1 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 1 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 0 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 0 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 0 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; processing (DEFCLASS KALYNA128 ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFMETHOD SCHEDULE-KEY (KALYNA128 T)
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 20
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::T2 0 IRONCLAD::KA 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 28
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::T2 0 IRONCLAD::KEY 0)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-MAKE-ODD-KEY 2 IRONCLAD::ENCRYPTION-ROUND-KEYS IRONCLAD::N
; IRONCLAD::ENCRYPTION-ROUND-KEYS (+ IRONCLAD::N 2))
; --> MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; --> MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 8)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; --> MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 8)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KEY 0)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::T2 0 IRONCLAD::KEY 0)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G0128 IRONCLAD::T2 IRONCLAD::KS)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-MAKE-ODD-KEY 2 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 2)
; --> BLOCK MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 8)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 8)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 20
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IMC128 IRONCLAD::DECRYPTION-ROUND-KEYS IRONCLAD::N)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KO 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::T2 0 IRONCLAD::KA 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G0128 IRONCLAD::T2 IRONCLAD::KS)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-MAKE-ODD-KEY 2 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 2)
; --> MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; --> MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 8)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; --> MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 8)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 28
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IMC128 IRONCLAD::DECRYPTION-ROUND-KEYS IRONCLAD::N)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-MAKE-ODD-KEY 2 IRONCLAD::ENCRYPTION-ROUND-KEYS IRONCLAD::N
; IRONCLAD::ENCRYPTION-ROUND-KEYS (+ IRONCLAD::N 2))
; --> MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; --> MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 8)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 4722366482869645213441) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; --> MACROLET ECASE LET COND IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 8)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; processing (DEFINE-BLOCK-ENCRYPTOR KALYNA128 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFINE-BLOCK-ENCRYPTOR KALYNA128
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 8))
; --> DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-ADD-KEY 2 IRONCLAD::T2 0 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS)
; --> PROGN SYMBOL-MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T2 IRONCLAD::T1 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 28)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; --> BLOCK DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T2 IRONCLAD::T1 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 20)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (AREF IRONCLAD::T1 0)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 8))
; (AREF IRONCLAD::T1 1))
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: unable to convert to inline logical operations because: not a word-sized integer
;
; note: unable to convert to inline logical operations because: not a word-sized integer
; (IRONCLAD::KALYNA-ADD-KEY 2 IRONCLAD::T2 0 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS)
; --> PROGN SYMBOL-MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 36893488147419103231) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (MOD 36893488147419103231) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 36893488147419103231) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (MOD 36893488147419103231) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 2)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 4)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 6)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 8)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 10)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 12)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 14)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 16)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 18)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 20)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 22)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 24)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 26)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T2 IRONCLAD::T1 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 28)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL128 IRONCLAD::T2 IRONCLAD::T1 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 20)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (AREF IRONCLAD::T1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (AREF IRONCLAD::T1 0)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 8))
; (AREF IRONCLAD::T1 1))
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (AREF IRONCLAD::T1 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (AREF IRONCLAD::T1 0)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 8))
; (AREF IRONCLAD::T1 1))
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; --> BLOCK DPB
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 8))
; --> DPB
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; processing (DEFINE-BLOCK-DECRYPTOR KALYNA128 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFINE-BLOCK-DECRYPTOR KALYNA128
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 8))
; --> DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-SUB-KEY 2 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 20)
; --> PROGN SYMBOL-MACROLET SETF LET* IRONCLAD::MOD64- LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; (IRONCLAD::KALYNA-SUB-KEY 2 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 28)
; --> PROGN SYMBOL-MACROLET SETF LET* IRONCLAD::MOD64- LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; (IRONCLAD::KALYNA-IGL128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 0)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64- LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; --> BLOCK DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; (AREF IRONCLAD::T1 0)
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT
; (+ IRONCLAD::PLAINTEXT-START 8))
; (AREF IRONCLAD::T1 1))
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: unable to convert to inline logical operations because: not a word-sized integer
;
; note: unable to convert to inline logical operations because: not a word-sized integer
; (IRONCLAD::KALYNA-SUB-KEY 2 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 28)
; --> PROGN SYMBOL-MACROLET SETF LET* IRONCLAD::MOD64- LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (IRONCLAD::KALYNA-IMC128 IRONCLAD::T1 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::DECRYPTION-ROUND-KEYS 26)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 24)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::DECRYPTION-ROUND-KEYS 22)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 20)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-SUB-KEY 2 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 20)
; --> PROGN SYMBOL-MACROLET SETF LET* IRONCLAD::MOD64- LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (IRONCLAD::KALYNA-IMC128 IRONCLAD::T1 0)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::DECRYPTION-ROUND-KEYS 18)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 16)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::DECRYPTION-ROUND-KEYS 14)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 12)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::DECRYPTION-ROUND-KEYS 10)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 8)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::DECRYPTION-ROUND-KEYS 6)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 4)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG128 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::DECRYPTION-ROUND-KEYS 2)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IGL128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 0)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64- LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 1095216660481) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 1095216660481) . #2#), not a (VALUES FIXNUM
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (MOD 1095216660481), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The second argument is a (MOD 1095216660481), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 280375465082881) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 280375465082881) . #2#), not a (VALUES
; FIXNUM . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The second argument is a (MOD 280375465082881), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 280375465082881), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 71776119061217281) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 71776119061217281) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; The second argument is a (MOD 71776119061217281), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 71776119061217281), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; The second argument is a (MOD 18374686479671623681), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 18374686479671623681), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 1095216660481) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 1095216660481) . #2#), not a (VALUES FIXNUM
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (MOD 1095216660481), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The second argument is a (MOD 1095216660481), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 280375465082881) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 280375465082881) . #2#), not a (VALUES
; FIXNUM . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The second argument is a (MOD 280375465082881), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 280375465082881), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 71776119061217281) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 71776119061217281) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; The second argument is a (MOD 71776119061217281), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 71776119061217281), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; The second argument is a (MOD 18374686479671623681), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 18374686479671623681), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (AREF IRONCLAD::T1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; (AREF IRONCLAD::T1 0)
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT
; (+ IRONCLAD::PLAINTEXT-START 8))
; (AREF IRONCLAD::T1 1))
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (AREF IRONCLAD::T1 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; (AREF IRONCLAD::T1 0)
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT
; (+ IRONCLAD::PLAINTEXT-START 8))
; (AREF IRONCLAD::T1 1))
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; --> BLOCK DPB
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 8))
; --> DPB
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; (IRONCLAD::KALYNA-IGL128 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 0)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64- LDB
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; processing (DEFCIPHER KALYNA128 ...)
; processing (DECLAIM (INLINE KALYNA-G0256))
; processing (DEFUN KALYNA-G0256 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-G0256
; (IRONCLAD::M 0 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 0 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 3 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 3 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 2 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 2 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 1 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 1 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 1 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 0 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 0 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 3 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 3 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 2 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 2 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 2 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 2 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 1 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 1 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 0 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 3 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 3 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 3 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 3 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 2 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 2 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 1 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 0 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 0 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; processing (DECLAIM (INLINE KALYNA-GL256))
; processing (DEFUN KALYNA-GL256 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-GL256
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 0))
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8)
; (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56)))
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 1))
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8)
; (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56)))
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 2))
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8)
; (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56)))
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 3))
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8)
; (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56)))
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::M 0 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 0 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 3 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 3 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 2 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 2 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 1 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 1 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16)
; (IRONCLAD::M 3 3 -24) (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 0))
; (LOGXOR (IRONCLAD::M 0 0 0) (IRONCLAD::M 1 0 -8)
; (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40)
; (IRONCLAD::M 6 1 -48) (IRONCLAD::M 7 1 -56)))
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 1 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 0 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 0 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 3 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 3 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 2 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 2 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16)
; (IRONCLAD::M 3 0 -24) (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 1))
; (LOGXOR (IRONCLAD::M 0 1 0) (IRONCLAD::M 1 1 -8)
; (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40)
; (IRONCLAD::M 6 2 -48) (IRONCLAD::M 7 2 -56)))
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 2 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 2 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 1 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 1 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 0 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 3 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 3 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16)
; (IRONCLAD::M 3 1 -24) (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 2))
; (LOGXOR (IRONCLAD::M 0 2 0) (IRONCLAD::M 1 2 -8)
; (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40)
; (IRONCLAD::M 6 3 -48) (IRONCLAD::M 7 3 -56)))
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 3 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 3 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 2 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 2 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 1 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 0 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 0 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16)
; (IRONCLAD::M 3 2 -24) (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::MOD64+ (AREF IRONCLAD::K (+ IRONCLAD::K-START 3))
; (LOGXOR (IRONCLAD::M 0 3 0) (IRONCLAD::M 1 3 -8)
; (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40)
; (IRONCLAD::M 6 0 -48) (IRONCLAD::M 7 0 -56)))
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; processing (DECLAIM (INLINE KALYNA-IMC256))
; processing (DEFUN KALYNA-IMC256 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-IMC256
; (IRONCLAD::M 0 0 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 1 0 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 2 0 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 3 0 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 0 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 0 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 2 0 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 3 0 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 1 0 -8) (IRONCLAD::M 2 2 0 -16)
; (IRONCLAD::M 3 3 0 -24) (IRONCLAD::M 4 0 0 -32)
; (IRONCLAD::M 5 1 0 -40) (IRONCLAD::M 6 2 0 -48)
; (IRONCLAD::M 7 3 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 0 1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 1 1 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 2 1 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 3 1 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 1 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 1 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 2 1 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 3 1 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 1 0) (IRONCLAD::M 1 1 1 -8) (IRONCLAD::M 2 2 1 -16)
; (IRONCLAD::M 3 3 1 -24) (IRONCLAD::M 4 0 1 -32)
; (IRONCLAD::M 5 1 1 -40) (IRONCLAD::M 6 2 1 -48)
; (IRONCLAD::M 7 3 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 0 2 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 1 2 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 2 0) (IRONCLAD::M 1 1 2 -8) (IRONCLAD::M 2 2 2 -16)
; (IRONCLAD::M 3 3 2 -24) (IRONCLAD::M 4 0 2 -32)
; (IRONCLAD::M 5 1 2 -40) (IRONCLAD::M 6 2 2 -48)
; (IRONCLAD::M 7 3 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 2 2 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 2 0) (IRONCLAD::M 1 1 2 -8) (IRONCLAD::M 2 2 2 -16)
; (IRONCLAD::M 3 3 2 -24) (IRONCLAD::M 4 0 2 -32)
; (IRONCLAD::M 5 1 2 -40) (IRONCLAD::M 6 2 2 -48)
; (IRONCLAD::M 7 3 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 3 2 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 2 0) (IRONCLAD::M 1 1 2 -8) (IRONCLAD::M 2 2 2 -16)
; (IRONCLAD::M 3 3 2 -24) (IRONCLAD::M 4 0 2 -32)
; (IRONCLAD::M 5 1 2 -40) (IRONCLAD::M 6 2 2 -48)
; (IRONCLAD::M 7 3 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 2 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 2 0) (IRONCLAD::M 1 1 2 -8) (IRONCLAD::M 2 2 2 -16)
; (IRONCLAD::M 3 3 2 -24) (IRONCLAD::M 4 0 2 -32)
; (IRONCLAD::M 5 1 2 -40) (IRONCLAD::M 6 2 2 -48)
; (IRONCLAD::M 7 3 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 2 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 2 0) (IRONCLAD::M 1 1 2 -8) (IRONCLAD::M 2 2 2 -16)
; (IRONCLAD::M 3 3 2 -24) (IRONCLAD::M 4 0 2 -32)
; (IRONCLAD::M 5 1 2 -40) (IRONCLAD::M 6 2 2 -48)
; (IRONCLAD::M 7 3 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 2 2 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 2 0) (IRONCLAD::M 1 1 2 -8) (IRONCLAD::M 2 2 2 -16)
; (IRONCLAD::M 3 3 2 -24) (IRONCLAD::M 4 0 2 -32)
; (IRONCLAD::M 5 1 2 -40) (IRONCLAD::M 6 2 2 -48)
; (IRONCLAD::M 7 3 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 3 2 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 2 0) (IRONCLAD::M 1 1 2 -8) (IRONCLAD::M 2 2 2 -16)
; (IRONCLAD::M 3 3 2 -24) (IRONCLAD::M 4 0 2 -32)
; (IRONCLAD::M 5 1 2 -40) (IRONCLAD::M 6 2 2 -48)
; (IRONCLAD::M 7 3 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 0 3 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 1 3 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 3 0) (IRONCLAD::M 1 1 3 -8) (IRONCLAD::M 2 2 3 -16)
; (IRONCLAD::M 3 3 3 -24) (IRONCLAD::M 4 0 3 -32)
; (IRONCLAD::M 5 1 3 -40) (IRONCLAD::M 6 2 3 -48)
; (IRONCLAD::M 7 3 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 2 3 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 3 0) (IRONCLAD::M 1 1 3 -8) (IRONCLAD::M 2 2 3 -16)
; (IRONCLAD::M 3 3 3 -24) (IRONCLAD::M 4 0 3 -32)
; (IRONCLAD::M 5 1 3 -40) (IRONCLAD::M 6 2 3 -48)
; (IRONCLAD::M 7 3 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 3 3 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (IRONCLAD::M 0 0 3 0) (IRONCLAD::M 1 1 3 -8) (IRONCLAD::M 2 2 3 -16)
; (IRONCLAD::M 3 3 3 -24) (IRONCLAD::M 4 0 3 -32)
; (IRONCLAD::M 5 1 3 -40) (IRONCLAD::M 6 2 3 -48)
; (IRONCLAD::M 7 3 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 3 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 3 0) (IRONCLAD::M 1 1 3 -8) (IRONCLAD::M 2 2 3 -16)
; (IRONCLAD::M 3 3 3 -24) (IRONCLAD::M 4 0 3 -32)
; (IRONCLAD::M 5 1 3 -40) (IRONCLAD::M 6 2 3 -48)
; (IRONCLAD::M 7 3 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 3 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 3 0) (IRONCLAD::M 1 1 3 -8) (IRONCLAD::M 2 2 3 -16)
; (IRONCLAD::M 3 3 3 -24) (IRONCLAD::M 4 0 3 -32)
; (IRONCLAD::M 5 1 3 -40) (IRONCLAD::M 6 2 3 -48)
; (IRONCLAD::M 7 3 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 2 3 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 3 0) (IRONCLAD::M 1 1 3 -8) (IRONCLAD::M 2 2 3 -16)
; (IRONCLAD::M 3 3 3 -24) (IRONCLAD::M 4 0 3 -32)
; (IRONCLAD::M 5 1 3 -40) (IRONCLAD::M 6 2 3 -48)
; (IRONCLAD::M 7 3 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 3 3 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 3 0) (IRONCLAD::M 1 1 3 -8) (IRONCLAD::M 2 2 3 -16)
; (IRONCLAD::M 3 3 3 -24) (IRONCLAD::M 4 0 3 -32)
; (IRONCLAD::M 5 1 3 -40) (IRONCLAD::M 6 2 3 -48)
; (IRONCLAD::M 7 3 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; processing (DECLAIM (INLINE KALYNA-IG256))
; processing (DEFUN KALYNA-IG256 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-IG256
; (IRONCLAD::M 0 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 0 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 1 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 1 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 2 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 2 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 3 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 3 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 1 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 2 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 2 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 3 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 3 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 0 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 0 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 2 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 2 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 3 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 3 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 0 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 1 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 1 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 3 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 3 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 0 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 0 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 1 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 2 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 2 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; processing (DECLAIM (INLINE KALYNA-IGL256))
; processing (DEFUN KALYNA-IGL256 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-IGL256
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8)
; (IRONCLAD::M 2 1 -16 16) (IRONCLAD::M 3 1 -24 24)
; (IRONCLAD::M 0 2 -32 32) (IRONCLAD::M 1 2 -40 40)
; (IRONCLAD::M 2 3 -48 48) (IRONCLAD::M 3 3 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)))
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8)
; (IRONCLAD::M 2 2 -16 16) (IRONCLAD::M 3 2 -24 24)
; (IRONCLAD::M 0 3 -32 32) (IRONCLAD::M 1 3 -40 40)
; (IRONCLAD::M 2 0 -48 48) (IRONCLAD::M 3 0 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)))
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 2 0 0) (IRONCLAD::M 1 2 -8 8)
; (IRONCLAD::M 2 3 -16 16) (IRONCLAD::M 3 3 -24 24)
; (IRONCLAD::M 0 0 -32 32) (IRONCLAD::M 1 0 -40 40)
; (IRONCLAD::M 2 1 -48 48) (IRONCLAD::M 3 1 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)))
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 3 0 0) (IRONCLAD::M 1 3 -8 8)
; (IRONCLAD::M 2 0 -16 16) (IRONCLAD::M 3 0 -24 24)
; (IRONCLAD::M 0 1 -32 32) (IRONCLAD::M 1 1 -40 40)
; (IRONCLAD::M 2 2 -48 48) (IRONCLAD::M 3 2 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)))
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::M 0 0 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 0 -8 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (IRONCLAD::M 2 1 -16 16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (IRONCLAD::M 3 1 -24 24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (IRONCLAD::M 0 2 -32 32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 1095216660481) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 1095216660481) . #2#), not a (VALUES FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 2 -32 32)
; (IRONCLAD::M 1 2 -40 40) (IRONCLAD::M 2 3 -48 48)
; (IRONCLAD::M 3 3 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (MOD 1095216660481), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The second argument is a (MOD 1095216660481), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 2 -40 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 280375465082881) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 280375465082881) . #2#), not a (VALUES
; FIXNUM . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 2 -32 32)
; (IRONCLAD::M 1 2 -40 40) (IRONCLAD::M 2 3 -48 48)
; (IRONCLAD::M 3 3 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The second argument is a (MOD 280375465082881), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 280375465082881), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 3 -48 48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 71776119061217281) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 71776119061217281) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 2 -32 32)
; (IRONCLAD::M 1 2 -40 40) (IRONCLAD::M 2 3 -48 48)
; (IRONCLAD::M 3 3 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; The second argument is a (MOD 71776119061217281), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 71776119061217281), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 3 -56 56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 2 -32 32)
; (IRONCLAD::M 1 2 -40 40) (IRONCLAD::M 2 3 -48 48)
; (IRONCLAD::M 3 3 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; The second argument is a (MOD 18374686479671623681), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 18374686479671623681), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8)
; (IRONCLAD::M 2 1 -16 16) (IRONCLAD::M 3 1 -24 24)
; (IRONCLAD::M 0 2 -32 32) (IRONCLAD::M 1 2 -40 40)
; (IRONCLAD::M 2 3 -48 48) (IRONCLAD::M 3 3 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)))
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (IRONCLAD::M 0 1 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 1 -8 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (IRONCLAD::M 2 2 -16 16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (IRONCLAD::M 3 2 -24 24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (IRONCLAD::M 0 3 -32 32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 1095216660481) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 1095216660481) . #2#), not a (VALUES FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8) (IRONCLAD::M 2 2 -16 16)
; (IRONCLAD::M 3 2 -24 24) (IRONCLAD::M 0 3 -32 32)
; (IRONCLAD::M 1 3 -40 40) (IRONCLAD::M 2 0 -48 48)
; (IRONCLAD::M 3 0 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (MOD 1095216660481), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The second argument is a (MOD 1095216660481), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 3 -40 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 280375465082881) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 280375465082881) . #2#), not a (VALUES
; FIXNUM . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8) (IRONCLAD::M 2 2 -16 16)
; (IRONCLAD::M 3 2 -24 24) (IRONCLAD::M 0 3 -32 32)
; (IRONCLAD::M 1 3 -40 40) (IRONCLAD::M 2 0 -48 48)
; (IRONCLAD::M 3 0 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The second argument is a (MOD 280375465082881), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 280375465082881), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 0 -48 48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 71776119061217281) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 71776119061217281) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8) (IRONCLAD::M 2 2 -16 16)
; (IRONCLAD::M 3 2 -24 24) (IRONCLAD::M 0 3 -32 32)
; (IRONCLAD::M 1 3 -40 40) (IRONCLAD::M 2 0 -48 48)
; (IRONCLAD::M 3 0 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; The second argument is a (MOD 71776119061217281), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 71776119061217281), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 0 -56 56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8) (IRONCLAD::M 2 2 -16 16)
; (IRONCLAD::M 3 2 -24 24) (IRONCLAD::M 0 3 -32 32)
; (IRONCLAD::M 1 3 -40 40) (IRONCLAD::M 2 0 -48 48)
; (IRONCLAD::M 3 0 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; The second argument is a (MOD 18374686479671623681), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 18374686479671623681), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8)
; (IRONCLAD::M 2 2 -16 16) (IRONCLAD::M 3 2 -24 24)
; (IRONCLAD::M 0 3 -32 32) (IRONCLAD::M 1 3 -40 40)
; (IRONCLAD::M 2 0 -48 48) (IRONCLAD::M 3 0 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)))
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (IRONCLAD::M 0 2 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 2 -8 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (IRONCLAD::M 2 3 -16 16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (IRONCLAD::M 3 3 -24 24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (IRONCLAD::M 0 0 -32 32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 1095216660481) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 1095216660481) . #2#), not a (VALUES FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0 0) (IRONCLAD::M 1 2 -8 8) (IRONCLAD::M 2 3 -16 16)
; (IRONCLAD::M 3 3 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 1 -48 48)
; (IRONCLAD::M 3 1 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (MOD 1095216660481), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The second argument is a (MOD 1095216660481), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 0 -40 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 280375465082881) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 280375465082881) . #2#), not a (VALUES
; FIXNUM . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0 0) (IRONCLAD::M 1 2 -8 8) (IRONCLAD::M 2 3 -16 16)
; (IRONCLAD::M 3 3 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 1 -48 48)
; (IRONCLAD::M 3 1 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The second argument is a (MOD 280375465082881), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 280375465082881), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 1 -48 48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 71776119061217281) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 71776119061217281) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0 0) (IRONCLAD::M 1 2 -8 8) (IRONCLAD::M 2 3 -16 16)
; (IRONCLAD::M 3 3 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 1 -48 48)
; (IRONCLAD::M 3 1 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; The second argument is a (MOD 71776119061217281), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 71776119061217281), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 1 -56 56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 2 0 0) (IRONCLAD::M 1 2 -8 8) (IRONCLAD::M 2 3 -16 16)
; (IRONCLAD::M 3 3 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 1 -48 48)
; (IRONCLAD::M 3 1 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; The second argument is a (MOD 18374686479671623681), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 18374686479671623681), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 2 0 0) (IRONCLAD::M 1 2 -8 8)
; (IRONCLAD::M 2 3 -16 16) (IRONCLAD::M 3 3 -24 24)
; (IRONCLAD::M 0 0 -32 32) (IRONCLAD::M 1 0 -40 40)
; (IRONCLAD::M 2 1 -48 48) (IRONCLAD::M 3 1 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)))
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (IRONCLAD::M 0 3 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (IRONCLAD::M 1 3 -8 8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (IRONCLAD::M 2 0 -16 16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (IRONCLAD::M 3 0 -24 24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (IRONCLAD::M 0 1 -32 32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 1095216660481) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 1095216660481) . #2#), not a (VALUES FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0 0) (IRONCLAD::M 1 3 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 2 -48 48)
; (IRONCLAD::M 3 2 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (MOD 1095216660481), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The second argument is a (MOD 1095216660481), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 1 -40 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 280375465082881) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 280375465082881) . #2#), not a (VALUES
; FIXNUM . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0 0) (IRONCLAD::M 1 3 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 2 -48 48)
; (IRONCLAD::M 3 2 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The second argument is a (MOD 280375465082881), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 280375465082881), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 2 -48 48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 71776119061217281) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 71776119061217281) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0 0) (IRONCLAD::M 1 3 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 2 -48 48)
; (IRONCLAD::M 3 2 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; The second argument is a (MOD 71776119061217281), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 48), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 71776119061217281), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 2 -56 56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 2) because:
; The result is a (VALUES (MOD 18374686479671623681) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; (LOGXOR (IRONCLAD::M 0 3 0 0) (IRONCLAD::M 1 3 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 2 -48 48)
; (IRONCLAD::M 3 2 -56 56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; The second argument is a (MOD 18374686479671623681), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 56), not a (UNSIGNED-BYTE 32).
; The second argument is a (MOD 18374686479671623681), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::MOD64-
; (LOGXOR (IRONCLAD::M 0 3 0 0) (IRONCLAD::M 1 3 -8 8)
; (IRONCLAD::M 2 0 -16 16) (IRONCLAD::M 3 0 -24 24)
; (IRONCLAD::M 0 1 -32 32) (IRONCLAD::M 1 1 -40 40)
; (IRONCLAD::M 2 2 -48 48) (IRONCLAD::M 3 2 -56 56))
; (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)))
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (LOGXOR (IRONCLAD::M 0 0 0 0) (IRONCLAD::M 1 0 -8 8) (IRONCLAD::M 2 1 -16 16)
; (IRONCLAD::M 3 1 -24 24) (IRONCLAD::M 0 2 -32 32)
; (IRONCLAD::M 1 2 -40 40) (IRONCLAD::M 2 3 -48 48)
; (IRONCLAD::M 3 3 -56 56))
;
; note: doing unsigned word to integer coercion (cost 20)
; (LOGXOR (IRONCLAD::M 0 1 0 0) (IRONCLAD::M 1 1 -8 8) (IRONCLAD::M 2 2 -16 16)
; (IRONCLAD::M 3 2 -24 24) (IRONCLAD::M 0 3 -32 32)
; (IRONCLAD::M 1 3 -40 40) (IRONCLAD::M 2 0 -48 48)
; (IRONCLAD::M 3 0 -56 56))
;
; note: doing unsigned word to integer coercion (cost 20)
; (LOGXOR (IRONCLAD::M 0 2 0 0) (IRONCLAD::M 1 2 -8 8) (IRONCLAD::M 2 3 -16 16)
; (IRONCLAD::M 3 3 -24 24) (IRONCLAD::M 0 0 -32 32)
; (IRONCLAD::M 1 0 -40 40) (IRONCLAD::M 2 1 -48 48)
; (IRONCLAD::M 3 1 -56 56))
;
; note: doing unsigned word to integer coercion (cost 20)
; (LOGXOR (IRONCLAD::M 0 3 0 0) (IRONCLAD::M 1 3 -8 8) (IRONCLAD::M 2 0 -16 16)
; (IRONCLAD::M 3 0 -24 24) (IRONCLAD::M 0 1 -32 32)
; (IRONCLAD::M 1 1 -40 40) (IRONCLAD::M 2 2 -48 48)
; (IRONCLAD::M 3 2 -56 56))
;
; note: doing unsigned word to integer coercion (cost 20)
; processing (DECLAIM (INLINE KALYNA-G256))
; processing (DEFUN KALYNA-G256 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFUN KALYNA-G256
; (IRONCLAD::M 0 0 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 0 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 3 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 3 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 2 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 2 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 1 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 1 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 0)) (IRONCLAD::M 0 0 0)
; (IRONCLAD::M 1 0 -8) (IRONCLAD::M 2 3 -16) (IRONCLAD::M 3 3 -24)
; (IRONCLAD::M 4 2 -32) (IRONCLAD::M 5 2 -40) (IRONCLAD::M 6 1 -48)
; (IRONCLAD::M 7 1 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 1 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 0 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 0 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 3 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 3 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 2 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 2 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 1)) (IRONCLAD::M 0 1 0)
; (IRONCLAD::M 1 1 -8) (IRONCLAD::M 2 0 -16) (IRONCLAD::M 3 0 -24)
; (IRONCLAD::M 4 3 -32) (IRONCLAD::M 5 3 -40) (IRONCLAD::M 6 2 -48)
; (IRONCLAD::M 7 2 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 2 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 2 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 1 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 1 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 0 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 0 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 3 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 3 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 2)) (IRONCLAD::M 0 2 0)
; (IRONCLAD::M 1 2 -8) (IRONCLAD::M 2 1 -16) (IRONCLAD::M 3 1 -24)
; (IRONCLAD::M 4 0 -32) (IRONCLAD::M 5 0 -40) (IRONCLAD::M 6 3 -48)
; (IRONCLAD::M 7 3 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::M 0 3 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 1 3 -8)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 2 2 -16)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 3 2 -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 4 1 -32)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 5 1 -40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 6 0 -48)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::M 7 0 -56)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (LOGXOR (AREF IRONCLAD::K (+ IRONCLAD::K-START 3)) (IRONCLAD::M 0 3 0)
; (IRONCLAD::M 1 3 -8) (IRONCLAD::M 2 2 -16) (IRONCLAD::M 3 2 -24)
; (IRONCLAD::M 4 1 -32) (IRONCLAD::M 5 1 -40) (IRONCLAD::M 6 0 -48)
; (IRONCLAD::M 7 0 -56))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; processing (DEFCLASS KALYNA256 ...)
; processing (DEFMETHOD SCHEDULE-KEY ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFMETHOD SCHEDULE-KEY (KALYNA256 T)
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 56
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::T2 0 IRONCLAD::KA 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 72
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::T2 0 IRONCLAD::KEY 0)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-MAKE-ODD-KEY 4 IRONCLAD::ENCRYPTION-ROUND-KEYS IRONCLAD::N
; IRONCLAD::ENCRYPTION-ROUND-KEYS (+ IRONCLAD::N 4))
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS
; IRONCLAD::N IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-MAKE-ODD-KEY 4 IRONCLAD::ENCRYPTION-ROUND-KEYS IRONCLAD::N
; IRONCLAD::ENCRYPTION-ROUND-KEYS (+ IRONCLAD::N 4))
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KEY 0)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::T2 0 IRONCLAD::KEY 0)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G0256 IRONCLAD::T2 IRONCLAD::KS)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-MAKE-ODD-KEY 4 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 4)
; --> BLOCK MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> BLOCK MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 56
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IMC256 IRONCLAD::DECRYPTION-ROUND-KEYS IRONCLAD::N)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KO 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::T2 0 IRONCLAD::KA 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G0256 IRONCLAD::T2 IRONCLAD::KS)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-MAKE-ODD-KEY 4 IRONCLAD::ENCRYPTION-ROUND-KEYS 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 4)
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 2)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 3)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET* LOGIOR
; --> IRONCLAD::MOD64ASH LOGAND
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 40)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241)
; . #2=(&OPTIONAL)), not a (VALUES FIXNUM . #2#).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 20282409603651670422847739658241) . #2#), not a (VALUES
; FIXNUM
; . #2#).
; etc.
; ==>
; (ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -24)
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
; --> MACROLET ECASE LET COND IF IF PROGN IRONCLAD::M SETF LET*
; ==>
; (LOGIOR (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 1)) 40)
; (IRONCLAD::MOD64ASH (AREF IRONCLAD::EK (+ IRONCLAD::EK-START 0)) -24))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 40), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1 IRONCLAD::KSC 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T1 IRONCLAD::ENCRYPTION-ROUND-KEYS 72
; IRONCLAD::KSC 0)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IMC256 IRONCLAD::DECRYPTION-ROUND-KEYS IRONCLAD::N)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; processing (DEFINE-BLOCK-ENCRYPTOR KALYNA256 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFINE-BLOCK-ENCRYPTOR KALYNA256
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 8))
; --> DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 16))
; --> DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 24))
; --> DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-ADD-KEY 4 IRONCLAD::T2 0 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS)
; --> PROGN SYMBOL-MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T2 IRONCLAD::T1 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 72)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T2 IRONCLAD::T1 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 56)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; --> BLOCK DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (AREF IRONCLAD::T1 0)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 8))
; (AREF IRONCLAD::T1 1)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 16))
; (AREF IRONCLAD::T1 2)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 24))
; (AREF IRONCLAD::T1 3))
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: unable to convert to inline logical operations because: not a word-sized integer
;
; note: unable to convert to inline logical operations because: not a word-sized integer
;
; note: unable to convert to inline logical operations because: not a word-sized integer
;
; note: unable to convert to inline logical operations because: not a word-sized integer
; (IRONCLAD::KALYNA-ADD-KEY 4 IRONCLAD::T2 0 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS)
; --> PROGN SYMBOL-MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 36893488147419103231) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (MOD 36893488147419103231) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 36893488147419103231) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (MOD 36893488147419103231) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 36893488147419103231) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (MOD 36893488147419103231) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (MOD 36893488147419103231) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (MOD 36893488147419103231) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 4)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 8)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 12)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 16)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 20)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 24)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 28)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 32)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 36)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 40)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 44)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 48)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 52)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 56)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 60)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::ENCRYPTION-ROUND-KEYS 64)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-G256 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::ENCRYPTION-ROUND-KEYS 68)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T2 IRONCLAD::T1 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 72)
; --> MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-GL256 IRONCLAD::T2 IRONCLAD::T1 0
; IRONCLAD::ENCRYPTION-ROUND-KEYS 56)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64+ LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
; (AREF IRONCLAD::T1 0)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (AREF IRONCLAD::T1 0)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 8))
; (AREF IRONCLAD::T1 1)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 16))
; (AREF IRONCLAD::T1 2)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 24))
; (AREF IRONCLAD::T1 3))
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (AREF IRONCLAD::T1 1)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (AREF IRONCLAD::T1 0)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 8))
; (AREF IRONCLAD::T1 1)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 16))
; (AREF IRONCLAD::T1 2)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 24))
; (AREF IRONCLAD::T1 3))
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (AREF IRONCLAD::T1 2)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (AREF IRONCLAD::T1 0)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 8))
; (AREF IRONCLAD::T1 1)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 16))
; (AREF IRONCLAD::T1 2)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 24))
; (AREF IRONCLAD::T1 3))
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (AREF IRONCLAD::T1 3)
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; (AREF IRONCLAD::T1 0)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 8))
; (AREF IRONCLAD::T1 1)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 16))
; (AREF IRONCLAD::T1 2)
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT
; (+ IRONCLAD::CIPHERTEXT-START 24))
; (AREF IRONCLAD::T1 3))
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline (unsigned-byte 32) arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32).
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; --> BLOCK DPB
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 8))
; --> DPB
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 16))
; --> DPB
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT (+ IRONCLAD::PLAINTEXT-START 24))
; --> DPB
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; processing (DEFINE-BLOCK-DECRYPTOR KALYNA256 ...)
; file: /usr/share/common-lisp/source/ironclad/src/ciphers/kalyna.lisp
; in: DEFINE-BLOCK-DECRYPTOR KALYNA256
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 8))
; --> DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 16))
; --> DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT (+ IRONCLAD::CIPHERTEXT-START 24))
; --> DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD::KALYNA-SUB-KEY 4 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 56)
; --> PROGN SYMBOL-MACROLET SETF LET* IRONCLAD::MOD64- LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; (IRONCLAD::KALYNA-SUB-KEY 4 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 72)
; --> PROGN SYMBOL-MACROLET SETF LET* IRONCLAD::MOD64- LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &REST T).
; (IRONCLAD::KALYNA-IGL256 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 0)
; --> BLOCK MACROLET SETF LET* IRONCLAD::MOD64- LDB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
; (IRONCLAD:UB64REF/LE IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START)
; --> BLOCK DPB
; ==>
; 1
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; convert to inline logical operations
; due to type uncertainty:
; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START)
; (AREF IRONCLAD::T1 0)
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT
; (+ IRONCLAD::PLAINTEXT-START 8))
; (AREF IRONCLAD::T1 1)
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT
; (+ IRONCLAD::PLAINTEXT-START 16))
; (AREF IRONCLAD::T1 2)
; (IRONCLAD:UB64REF/LE IRONCLAD::PLAINTEXT
; (+ IRONCLAD::PLAINTEXT-START 24))
; (AREF IRONCLAD::T1 3))
; --> SETF LET* FUNCALL
; ==>
; 1
;
; note: unable to convert to inline logical operations because: not a word-sized integer
;
; note: unable to convert to inline logical operations because: not a word-sized integer
;
; note: unable to convert to inline logical operations because: not a word-sized integer
;
; note: unable to convert to inline logical operations because: not a word-sized integer
; (IRONCLAD::KALYNA-SUB-KEY 4 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 72)
; --> PROGN SYMBOL-MACROLET SETF LET* IRONCLAD::MOD64- LDB
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do #1# (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1=(&OPTIONAL)), not a (VALUES FIXNUM . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES
; (INTEGER -18446744073709551615 18446744073709551615)
; . #1#), not a (VALUES (UNSIGNED-BYTE 32) . #1#).
; etc.
; (IRONCLAD::KALYNA-IMC256 IRONCLAD::T1 0)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG256 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::DECRYPTION-ROUND-KEYS 68)
; --> BLOCK MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG256 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 64)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG256 IRONCLAD::T1 IRONCLAD::T2
; IRONCLAD::DECRYPTION-ROUND-KEYS 60)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
; (IRONCLAD::KALYNA-IG256 IRONCLAD::T2 IRONCLAD::T1
; IRONCLAD::DECRYPTION-ROUND-KEYS 56)
; --> MACROLET SETF LET* LOGXOR
; ==>
; 1
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 40) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 32) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 64) . #1#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 56) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; unable to do #1# (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
; etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
; . #1#).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER . #1#), not a (VALUES (UNSIGNED-BYTE 32)
; . #1#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline ASH (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM.
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2=(&OPTIONAL)), not a (VALUES
; FIXNUM
; . #2#).
; unable to do #1# (cost 3) because:
; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (UNSIGNED-BYTE 48) . #2#), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; . #2#).
; etc.
;
; note: forced to do full call
; unable to do #1=inline fixnum arithmetic (cost 1) because:
;